Index: TECH/ListUtils.cls.xml
===================================================================
diff -u -r1094 -r1130
--- TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 1094)
+++ TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 1130)
@@ -17,6 +17,7 @@
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
 	set List = ##class(%ListOfDataTypes).%New()
+	#dim ctr As %Integer
 	for ctr=1:1:$listlength(Listbuild) do List.Insert($listget(Listbuild,ctr))
 	quit List
 ]]></Implementation>
@@ -40,14 +41,32 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ListToStream">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>List:%ListOfDataTypes</FormalSpec>
+<ReturnType>%Stream</ReturnType>
+<Implementation><![CDATA[
+	set Stream = ##class(%GlobalCharacterStream).%New()
+	
+	set ListIterator = ##class(TECH.ListIterator).%New(List)
+	while ListIterator.HasNext() {
+		#dim Item As %String = ListIterator.Next()
+		#dim Key As %String = ListIterator.Key()
+		do Stream.WriteLine("["_Key_"]")
+		do Stream.WriteLine(Item)
+	}
+	quit Stream
+]]></Implementation>
+</Method>
+
 <Method name="IteratorToPieces">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Iterator:TECH.Iterator,Delim:%String="\"</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim Pieces As %String = ""
 	while (Iterator.HasNext() && ($L(Pieces) < 15000)) {
-		set Item = Iterator.Next()
+		#dim Item As %String = Iterator.Next()
 		set Pieces = Pieces _ Item 
 		If Iterator.HasNext() {
 			Set Pieces = Pieces_Delim