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>