Index: TECH/ListUtils.cls.xml
===================================================================
diff -u -r1508 -r1523
--- TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 1508)
+++ TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 1523)
@@ -36,6 +36,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ListToPieces">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>List:%ListOfDataTypes,Delim:%String="\"</FormalSpec>
+<Implementation><![CDATA[
+	set Pieces = ""
+	set itList = ##class(TECH.ListIterator).%New(List)
+	while itList.HasNext() {
+		set Item = itList.Next()
+		set Pieces = Pieces _ Item _ Delim
+	}
+	set Pieces = $piece(Pieces,Delim,1,$length(Pieces,Delim)-1)			
+
+	quit Pieces
+]]></Implementation>
+</Method>
+
 <Method name="CloneList">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>sourceList:%ListOfObjects</FormalSpec>