Index: TECH/DataTransferObject.cls.xml
===================================================================
diff -u -r802 -r1496
--- TECH/DataTransferObject.cls.xml	(.../DataTransferObject.cls.xml)	(revision 802)
+++ TECH/DataTransferObject.cls.xml	(.../DataTransferObject.cls.xml)	(revision 1496)
@@ -2,7 +2,8 @@
 <Export generator="Cache" version="24">
 <Class name="TECH.DataTransferObject">
 <Abstract>1</Abstract>
-<Super>TECH.RegisteredObject,%XML.Adaptor</Super>
+<IncludeCode>vhLib.Macro</IncludeCode>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
 
 <Parameter name="XMLIGNORENULL">
 <Type>STRING</Type>
Index: TECH/ClassUtils.cls.xml
===================================================================
diff -u -r1381 -r1496
--- TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 1381)
+++ TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 1496)
@@ -5,6 +5,28 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.RegisteredObject</Super>
 
+<Method name="GetDerivedClasses">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ClassName:TECH.String</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim Classes As %String 
+	do GetAllDerivedClasses^%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>
+<Implementation><![CDATA[
+	
+	#dim DerivedClassIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..GetDerivedClasses(ClassName))
+	quit DerivedClassIterator
+]]></Implementation>
+</Method>
+
 <Method name="GetClassesStartingWith">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Value:%String</FormalSpec>
@@ -76,6 +98,7 @@
 		 while itProperties.HasNext() {
 			#dim Property As %Dictionary.CompiledProperty = itProperties.Next()
 			continue:Property.Name="%%OID"
+			continue:Property.Name="E"
 			continue:$$$Not(..ValidFilter(Property,Filter))
 			do List.Insert(Property.Name)
 		 }
Index: TECH/StringUtils.cls.xml
===================================================================
diff -u -r1479 -r1496
--- TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 1479)
+++ TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 1496)
@@ -470,6 +470,21 @@
 	quit Contains
 ]]></Implementation>
 </Method>
+
+<Method name="Equals">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>String:%String,SubStrings...:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim Equals As %Boolean = 0
+	
+	set Iterator = ##class(TECH.ArrayOneDimIterator).%New(.SubStrings)
+	while ( Iterator.HasNext() ) && ( 'Equals ) {
+		#dim SubString As %string = Iterator.Next()	
+		set Equals = ( String=SubString) 
+	}
+	quit Equals
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: TECH/ListUtils.cls.xml
===================================================================
diff -u -r1358 -r1496
--- TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 1358)
+++ TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 1496)
@@ -2,9 +2,9 @@
 <Export generator="Cache" version="24">
 <Class name="TECH.ListUtils">
 <Description>
-      Utility methods for %ListOfObjects.
+Utility methods for %ListOfObjects.
 
-      REMARK: Probably this functionality exists already somewhere....
+ REMARK: Probably this functionality exists already somewhere....
     </Description>
 <ClassType/>
 <IncludeCode>vhLib.Macro</IncludeCode>
@@ -487,7 +487,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="MulitDimensionalToArray">
+<Method name="MultiDimensionalToArray">
 <ClassMethod>1</ClassMethod>
 <FormalSpec><![CDATA[&MultiDim:%CacheString,Array:%ArrayOfDataTypes]]></FormalSpec>
 <Implementation><![CDATA[
@@ -509,14 +509,28 @@
 	
 	set it = ##class(TECH.ArrayOneDimIterator).%New(.MultiDim)
 	while it.HasNext() {
-		Set waarde = it.Next()
+		#dim waarde As %CacheString = it.Next()
 		do List.Insert( waarde )
 	}
 	
 	Quit List
 ]]></Implementation>
 </Method>
 
+<Method name="MultiDimensionalIndicesToListOfDataTypes">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>MultiDim:TECH.String</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	set List = ##class(%ListOfDataTypes).%New()
+	#dim idx As %String = ""
+	for { set idx = $order(MultiDim(idx)) quit:idx="" 
+		do List.Insert(idx)
+	}
+	quit List
+]]></Implementation>
+</Method>
+
 <Method name="RemoveDuplicateItems">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>List:%ListOfDataTypes</FormalSpec>
Index: Tools/Test/TestCase.cls.xml
===================================================================
diff -u -r1495 -r1496
--- Tools/Test/TestCase.cls.xml	(.../TestCase.cls.xml)	(revision 1495)
+++ Tools/Test/TestCase.cls.xml	(.../TestCase.cls.xml)	(revision 1496)
@@ -11,7 +11,7 @@
 <IncludeCode>Tools.UnitTest,vhLib.Macro</IncludeCode>
 <IncludeGenerator>Tools.UnitTest</IncludeGenerator>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <Parameter name="Type">
 <Type>%String</Type>