Index: BL/Lib/BaseObj.cls.xml
===================================================================
diff -u -r1074 -r2634
--- BL/Lib/BaseObj.cls.xml	(.../BaseObj.cls.xml)	(revision 1074)
+++ BL/Lib/BaseObj.cls.xml	(.../BaseObj.cls.xml)	(revision 2634)
@@ -6,9 +6,9 @@
 methods bevatten.</Description>
 <Abstract>1</Abstract>
 <ClassType>serial</ClassType>
-<IncludeCode>%Const</IncludeCode>
 <StorageStrategy>Default</StorageStrategy>
 <Super>%Library.RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="ErrorLevel">
 <Type>%Library.String</Type>
Index: BL/Lib/EQBaseObj.cls.xml
===================================================================
diff -u -r1074 -r2634
--- BL/Lib/EQBaseObj.cls.xml	(.../EQBaseObj.cls.xml)	(revision 1074)
+++ BL/Lib/EQBaseObj.cls.xml	(.../EQBaseObj.cls.xml)	(revision 2634)
@@ -6,9 +6,10 @@
 methods bevatten.</Description>
 <Abstract>1</Abstract>
 <ClassType>serial</ClassType>
-<IncludeCode>BLEQBaseCNTs,EventQueueCNTs</IncludeCode>
+<IncludeCode>%Const,BLEQBaseCNTs,EventQueueCNTs</IncludeCode>
 <StorageStrategy>Default</StorageStrategy>
 <Super>BL.Lib.BaseObj</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="DefSubType">
 <Default>*</Default>
@@ -65,7 +66,6 @@
  Do ..EventQueue.AddMsg(eqID,MsgType,SubType,Params,SendType,IsPost)
 
  Quit 1
-
 ]]></Implementation>
 </Method>
 
@@ -96,7 +96,6 @@
  Do EventQueueObj.AddMsg(eqID,MsgType,SubType,Params,SendType,IsPost)
 
  Quit 1
-
 ]]></Implementation>
 </Method>
 
@@ -154,7 +153,6 @@
  . $$$GENERATE("	Quit """"")
  Else  Do
  . $$$GENERATE("	Quit """_%parameter("FixedEQID")_"""_$J")
-
 ]]></Implementation>
 </Method>