Index: TECH/ClassUtils.cls.xml
===================================================================
diff -u -r2707 -r2987
--- TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 2707)
+++ TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 2987)
@@ -17,6 +17,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GetSuperClasses">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ClassName:TECH.String</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim Classes As %String 
+	do GetAllSuperClasses^%occLibrary(ClassName,.Classes)	
+	#dim DerivedClasses As %ListOfDataTypes = ##class(TECH.ListUtils).MultiDimensionalIndicesToListOfDataTypes(.Classes)
+	quit DerivedClasses
+]]></Implementation>
+</Method>
+
 <Method name="GetDerivedClassIterator">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ClassName:TECH.String</FormalSpec>