Index: svn/InterfaceControleur.cls.xml
===================================================================
diff -u -r1662 -r1699
--- svn/InterfaceControleur.cls.xml	(.../InterfaceControleur.cls.xml)	(revision 1662)
+++ svn/InterfaceControleur.cls.xml	(.../InterfaceControleur.cls.xml)	(revision 1699)
@@ -124,8 +124,7 @@
 <FormalSpec>Classname:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set Klasse = ##class(%Dictionary.CompiledClass).%OpenId(Classname)	
-	#dim IsEnumeratie As %Boolean = ((Klasse.ClassType="datatype") && ('Klasse.System))
-	Set:IsEnumeratie IsEnumeratie =  '##class(TECH.ClassUtils).ClassDerivesFrom(Classname,"Res.Enumeration")
+	#dim IsEnumeratie As TECH.Boolean = ##class(TECH.ClassUtils).ClassDerivesFrom(Classname,"TECH.Enumeration")
 	If IsEnumeratie && '..HeeftEigenVALUELIST(Klasse){
 		Do ..Warnings.Insert("Er is geen VALUELIST gedefinieerd voor klasse '"_Classname_"'")
 	}