diff --git a/library/parser/json_parser.e b/library/parser/json_parser.e
index b513de80..b2c3a468 100644
--- a/library/parser/json_parser.e
+++ b/library/parser/json_parser.e
@@ -172,6 +172,7 @@ feature -- Obsolete commands
 			"Use restricted `next_parsed_json_value' [sept/2014]."
 		do
 			Result := next_parsed_json_value
+			is_parsed := is_valid
 		end
 
 feature {JSON_PARSER_ACCESS} -- Obsolete commands: restricted area