Index: TECH/ArrayUtils.cls.xml
===================================================================
diff -u -r1766 -r2046
--- TECH/ArrayUtils.cls.xml	(.../ArrayUtils.cls.xml)	(revision 1766)
+++ TECH/ArrayUtils.cls.xml	(.../ArrayUtils.cls.xml)	(revision 2046)
@@ -27,6 +27,22 @@
 	Quit ##class(TECH.ListUtils).ListToPieces(List, Delim)
 ]]></Implementation>
 </Method>
+
+<Method name="ArrayToPieces">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Array:%ArrayOfDataTypes,Delim:TECH.String="\"</FormalSpec>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim Pieces As %String = ""
+	Set Iterator = ##class(TECH.ListIterator).%New(Array)
+	While Iterator.HasNext() {
+		#dim Waarde As %Cachestring = Iterator.Next()
+		set Pieces = Pieces _ "["_Iterator.Key()_"]="_Waarde
+		set:Iterator.HasNext() Pieces = Pieces_Delim
+	}
+	Quit Pieces
+]]></Implementation>
+</Method>
 </Class>