Index: TECH/ClassUtils.cls.xml
===================================================================
diff -u -r984 -r994
--- TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 984)
+++ TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 994)
@@ -2,18 +2,22 @@
 <Export generator="Cache" version="24">
 <Class name="TECH.ClassUtils">
 <ClassType/>
-<IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <Method name="IsEnumeratie">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>KlasseNaam:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	Set Klasse = ##class(%Dictionary.CompiledClass).%OpenId(KlasseNaam)
-	#dim IsEnumeratie As %Boolean = ((Klasse.ClassType="datatype") && ('Klasse.System))
-	Set:IsEnumeratie IsEnumeratie = '..IsZuiverDataType(KlasseNaam)
+	#dim IsEnumeratie As %Boolean
+	If $IsObject(Klasse) {
+		Set IsEnumeratie = ((Klasse.ClassType="datatype") && ('Klasse.System))
+		Set:IsEnumeratie IsEnumeratie = '..IsZuiverDataType(KlasseNaam)
+	} Else {
+		Set IsEnumeratie = $$$False
+	}
 	Quit IsEnumeratie
 ]]></Implementation>
 </Method>