Index: TECH/ListUtils.cls.xml
===================================================================
diff -u -r189 -r211
--- TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 189)
+++ TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 211)
@@ -39,11 +39,19 @@
 <Method name="ListToPieces">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>List:%ListOfDataTypes,Delim:%String="\"</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..IteratorToPieces(##class(TECH.ListIterator).%New(List), Delim)
+]]></Implementation>
+</Method>
+
+<Method name="IteratorToPieces">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Iterator:TECH.Iterator,Delim:%String="\"</FormalSpec>
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	set Pieces = ""
-	set itList = ##class(TECH.ListIterator).%New(List)
-	while (itList.HasNext() && ($L(Pieces) < 15000)) {
-		set Item = itList.Next()
+	while (Iterator.HasNext() && ($L(Pieces) < 15000)) {
+		set Item = Iterator.Next()
 		set Pieces = Pieces _ Item _ Delim
 	}
 	set Pieces = $piece(Pieces,Delim,1,$length(Pieces,Delim)-1)