diff --git a/compiler/aopt.pas b/compiler/aopt.pas
index b763c9ddae..e0366d420d 100644
--- a/compiler/aopt.pas
+++ b/compiler/aopt.pas
@@ -298,7 +298,8 @@ Unit aopt;
       Begin
         if assigned(LabelInfo^.LabelTable) then
           Freemem(LabelInfo^.LabelTable);
-        Dispose(LabelInfo)
+        Dispose(LabelInfo);
+        inherited Destroy;
       End;