Index: TECH/ListUtils.cls.xml
===================================================================
diff -u -r268 -r281
--- TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 268)
+++ TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 281)
@@ -365,14 +365,26 @@
 <Implementation><![CDATA[
 	#dim Index As %Integer = StartIndex
 	Set It = ##class(TECH.ListIterator).%New(Lijst)
- 	While It.HasNext()
- 	{
+ 	While It.HasNext()	{
 	 	Set MultiDim(Index) = It.Next()
 	 	Set Index = Index + 1
 	}
 	Quit
 ]]></Implementation>
 </Method>
+
+<Method name="ArrayToMultiDimensional">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[Array:%ArrayOfDataTypes,&MultiDim:%CacheString]]></FormalSpec>
+<Implementation><![CDATA[
+	set it = ##class(TECH.ListIterator).%New(Array)
+	while it.HasNext() {
+		#dim Data = it.Next()
+		#dim Key = it.Key()
+		set MultiDim(Key) = Data	
+	}
+]]></Implementation>
+</Method>
 </Class>