diff --git a/components/codetools/pascalparsertool.pas b/components/codetools/pascalparsertool.pas
index af541e92dd..8839c12c19 100644
--- a/components/codetools/pascalparsertool.pas
+++ b/components/codetools/pascalparsertool.pas
@@ -719,7 +719,7 @@ procedure TPascalParserTool.BuildSubTreeForClass(ClassNode: TCodeTreeNode);
   
 var OldPhase: integer;
 begin
-  if not (ClassNode.Desc in AllClassObjects) then
+  if not (ClassNode.Desc in AllClasses) then
     RaiseClassDescInvalid;
   if (ClassNode.SubDesc and ctnsNeedJITParsing)=0 then begin
     // class already parsed