Index: TECH/ListUtils.cls.xml
===================================================================
diff -u -r175 -r181
--- TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 175)
+++ TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 181)
@@ -166,19 +166,11 @@
 <Implementation><![CDATA[
 	if List.Size {
 		
-		set tmpList = ##class(%ListOfDataTypes).%New()
-		do ..CopyListOfDataTypes(List,tmpList)
-	
-		do List.Clear()
-	
-		#dim itList As TECH.ReversedListIterator = ##class(TECH.ReversedListIterator).%New(tmpList)
-		while itList.HasNext() {
-			#dim Value As %String = itList.Next()
-			#dim Key As %Integer = itList.Key()
-			if Values.IsDefined(Value) set Value = Values.GetAt(Value)
-			do List.Insert(Value)
-			do tmpList.RemoveAt(Key)
-		}
+		#dim Key As %Integer = 0
+		for  { set Key = List.Next(Key) quit:Key=""
+			#dim Value As %String = List.GetAt(Key)
+			if Values.IsDefined(Value) do List.SetAt(Values.GetAt(Value),Key)
+		}	
 	}
 	
 	quit List