Index: TECH/ListUtils.cls.xml
===================================================================
diff -u -r173 -r175
--- TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 173)
+++ TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 175)
@@ -164,19 +164,21 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>List:%ListOfDataTypes,Values:%ArrayOfDataTypes</FormalSpec>
 <Implementation><![CDATA[
+	if List.Size {
+		
+		set tmpList = ##class(%ListOfDataTypes).%New()
+		do ..CopyListOfDataTypes(List,tmpList)
 	
-	set tmpList = ##class(%ListOfDataTypes).%New()
-	do ..CopyListOfDataTypes(List,tmpList)
+		do List.Clear()
 	
-	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 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)
+		}
 	}
 	
 	quit List