Index: TECH/ListUtils.cls.xml
===================================================================
diff -u -r698 -r743
--- TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 698)
+++ TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 743)
@@ -45,12 +45,14 @@
 <FormalSpec>Iterator:TECH.Iterator,Delim:%String="\"</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	set Pieces = ""
+	#dim Pieces As %String = ""
 	while (Iterator.HasNext() && ($L(Pieces) < 15000)) {
 		set Item = Iterator.Next()
-		set Pieces = Pieces _ Item _ Delim
+		set Pieces = Pieces _ Item 
+		If Iterator.HasNext() {
+			Set Pieces = Pieces_Delim
+		}
 	}
-	set Pieces = $piece(Pieces,Delim,1,$length(Pieces,Delim)-1)			
 
 	quit Pieces
 ]]></Implementation>