Index: TECH/ClassUtils.cls.xml
===================================================================
diff -u -r1130 -r1189
--- TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 1130)
+++ TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 1189)
@@ -415,9 +415,48 @@
 <ProcedureBlock>0</ProcedureBlock>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	new Classes
-	do GetAllDerivedClasses^%occLibrary(ClassFrom,.Classes)
-	quit $data(Classes(Class))
+ Set Class = $$$NormalizeClassname(Class)
+ Set ClassFrom = $$$NormalizeClassname(ClassFrom)
+ New Result Set Result = 0
+ New Todo, Done
+	
+ Set Todo(Class)="" 
+ Set Result = $$ScanDerivesFrom(ClassFrom)
+
+ Kill Todo, Done
+ 
+ Quit Result 
+
+ScanDerivesFrom(ClassFrom) 
+
+ New ClassName , IdxClass, objClass
+ New Super, tmpSuper
+ New Result Set Result = 0
+ New Counter
+
+ Set IdxClass=$O(Todo("")) 
+ Quit:IdxClass="" Result
+ Kill Todo(IdxClass) 
+	
+ Quit:Result Result
+
+ Set Done(IdxClass)=""
+ Set objClass=##class(%Dictionary.ClassDefinition).%OpenId(IdxClass)
+ Set Super = objClass.Super
+ 
+ If (","_Super_",")[(","_ClassFrom_",") Set Result=1
+ Set objClass = ""
+ If 'Result && $L(Super) Do
+ . For Counter = 1 : 1 : $L(Super,",") Do
+ . . Set ClassName =  $P(Super,",",Counter)
+ . . ; omvormen classname naar full package 
+ . . If ($E(ClassName)'="%")&&($L(ClassName,".")=1) Set ClassName = $P(IdxClass,".",1,$L(IdxClass,".")-1)_"."_ClassName
+ . . Set ClassName = $$$NormalizeClassname(ClassName)
+ . . Set:$L(ClassName) Todo(ClassName)=""
+
+ Set:'Result Result = $$ScanDerivesFrom(ClassFrom)   
+
+ Quit Result
 ]]></Implementation>
 </Method>
 </Class>