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