Index: TECH/ListUtils.cls.xml
===================================================================
diff -u -r2072 -r2075
--- TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 2072)
+++ TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 2075)
@@ -737,7 +737,8 @@
 	
 	#dim String As TECH.String = ""
 	If $IsObject(IntegerList) && IntegerList.Count()>0 {
-		Do ##class(TECH.Algo.Sort.MergeSort).Sort(IntegerList, ##class(TECH.Comparator.IntegerComparator).%New())
+		Do ##class(TECH.Algo.Sort.MergeSort).Sort(.IntegerList, ##class(TECH.Comparator.IntegerComparator).%New())
+		Do ##class(Tools.Wlip).%New(26).DataTransferObject(IntegerList)
 		Set ListIt = ##class(TECH.ListIterator).%New(IntegerList)
 		#dim PreviousNumber As TECH.Integer = ""
 		#dim WasConsecutive As %Boolean = $$$False
@@ -758,6 +759,10 @@
 						Set String = String_$$$NotConsecutiveSeparator_Number
 					}
 					Set WasConsecutive = $$$False
+				} Else {
+					If $$$Not(ListIt.HasNext()) && WasConsecutive {
+						Set String = String_$$$ConsecutiveSeparator_Number
+					}
 				}
 			}
 			Set PreviousNumber = Number