diff --git a/packages/rtl/classes.pas b/packages/rtl/classes.pas
index e4e33f5..a6cdbab 100644
--- a/packages/rtl/classes.pas
+++ b/packages/rtl/classes.pas
@@ -6923,8 +6923,10 @@ begin
     vaInt64,
     vaDouble:
       SkipBytes(8);
-    vaString, vaIdent:
+    vaIdent:
       ReadStr;
+    vaString:
+      ReadString(vaString);
     vaBinary:
       begin
         Count:=LongInt(ReadDWord);