@@ 140,6 140,8 @@ package body JSON.Parser is
             when STRING_TOKEN =>
                Continuation := False;
                declare
+                  -- Take a copy of String_Value since
+                  -- Parse_Pair will overwrite value of T
                   Name : constant String := To_String (T.String_Value);
                begin
                   Parse_Pair (Source, T, Item);