1 files changed, 5 insertions, 2 deletions
diff --git a/packages/rtl-extra/src/inc/objects.pp b/packages/rtl-extra/src/inc/objects.pp
index 5044de24db..7a21de7315 100644
--- a/packages/rtl-extra/src/inc/objects.pp
+++ b/packages/rtl-extra/src/inc/objects.pp
@@ -1014,7 +1014,7 @@ TYPE
    PPVMT=^PVMT;
    VMT=RECORD
      Size,NegSize:Longint;
-     ParentLink:PVMT;
+     ParentLink:PPVMT;
    END;
 VAR SP:PPVMT; Q:PVMT;
 BEGIN
@@ -1026,7 +1026,10 @@ BEGIN
        Is_Object:=True;
        Break;
      End;
-     Q:=Q^.Parentlink;
+     IF Q^.Parentlink<>Nil THEN
+       Q:=Q^.Parentlink^
+     ELSE
+       Q:=Nil;
    End;
 END;