Index: TECH/ClassUtils.cls.xml
===================================================================
diff -u -r2987 -r3034
--- TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 2987)
+++ TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 3034)
@@ -17,6 +17,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GetDerivedClassIterator">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ClassName:TECH.String</FormalSpec>
+<Implementation><![CDATA[
+	#dim DerivedClassIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..GetDerivedClasses(ClassName))
+	quit DerivedClassIterator
+]]></Implementation>
+</Method>
+
 <Method name="GetSuperClasses">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ClassName:TECH.String</FormalSpec>
@@ -29,12 +38,12 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GetDerivedClassIterator">
+<Method name="GetSuperClassIterator">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ClassName:TECH.String</FormalSpec>
 <Implementation><![CDATA[
-	#dim DerivedClassIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..GetDerivedClasses(ClassName))
-	quit DerivedClassIterator
+	#dim GetSuperClassIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..GetSuperClasses(ClassName))
+	quit GetSuperClassIterator
 ]]></Implementation>
 </Method>