diff --git a/rtl/objpas/classes/classesh.inc b/rtl/objpas/classes/classesh.inc
index 9be347524d..48aaaa4f54 100644
--- a/rtl/objpas/classes/classesh.inc
+++ b/rtl/objpas/classes/classesh.inc
@@ -1864,6 +1864,7 @@ type
     function EndOfList: Boolean;
     procedure EndReferences;
     procedure FixupReferences;
+    procedure SkipValue;
     function NextValue: TValueType;
     //Please don't use read, better use ReadBinary whenever possible
     //uuups, ReadBinary is protected ..
diff --git a/rtl/objpas/classes/reader.inc b/rtl/objpas/classes/reader.inc
index 016e3d02b2..913ee5dfc8 100644
--- a/rtl/objpas/classes/reader.inc
+++ b/rtl/objpas/classes/reader.inc
@@ -1070,6 +1070,12 @@ begin
   end;
 end;
 
+procedure TReader.SkipValue;
+
+begin
+  FDriver.SkipValue;
+end;
+
 procedure TReader.ReadData(Instance: TComponent);
 var
   SavedOwner, SavedParent: TComponent;