Index: TECH/ListUtils.cls.xml
===================================================================
diff -u -r2070 -r2072
--- TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 2070)
+++ TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 2072)
@@ -88,6 +88,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IteratorToList">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Iterator:TECH.Iterator</FormalSpec>
+<ReturnType>%Collection.AbstractListOfDT</ReturnType>
+<Implementation><![CDATA[
+	Set List = ##class(%ListOfDataTypes).%New()
+	while (Iterator.HasNext()) {
+		Do List.Insert(Iterator.Next())
+	}
+	quit List
+]]></Implementation>
+</Method>
+
 <Method name="IteratorToListbuild">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Iterator:TECH.Iterator</FormalSpec>
@@ -724,6 +737,7 @@
 	
 	#dim String As TECH.String = ""
 	If $IsObject(IntegerList) && IntegerList.Count()>0 {
+		Do ##class(TECH.Algo.Sort.MergeSort).Sort(IntegerList, ##class(TECH.Comparator.IntegerComparator).%New())
 		Set ListIt = ##class(TECH.ListIterator).%New(IntegerList)
 		#dim PreviousNumber As TECH.Integer = ""
 		#dim WasConsecutive As %Boolean = $$$False
@@ -737,7 +751,7 @@
 					If $$$Not(ListIt.HasNext()) {
 						Set String = String_$$$ConsecutiveSeparator_Number
 					}
-				} Else {
+				} ElseIf (Number-PreviousNumber) > 1 {
 					If WasConsecutive {
 						Set String = String_$$$ConsecutiveSeparator_PreviousNumber_$$$NotConsecutiveSeparator_Number
 					} Else {