Index: TECH/ListUtils.cls.xml
===================================================================
diff -u -r668 -r698
--- TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 668)
+++ TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 698)
@@ -124,6 +124,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="CopyArrayOfDataTypes">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>sourceArray:%ArrayOfDataTypes,targetArray:%ArrayOfDataTypes=""</FormalSpec>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+    if '$IsObject(targetArray) {
+	    set targetArray = ##class(%ArrayOfDataTypes).%New()
+    }
+    #dim Arraykey = ""
+    set itArray = ##class(TECH.ListIterator).%New(sourceArray)
+    while itArray.HasNext() {
+	    #dim Value As %String = itArray.Next()
+	    #dim Key As %String = itArray.Key()
+    	do targetArray.SetAt(Value,Key)
+    }
+    Quit targetArray
+]]></Implementation>
+</Method>
+
 <Method name="CopyListOfDataTypes">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>sourceList:%ListOfDataTypes,targetList:%ListOfDataTypes=""</FormalSpec>