Index: TECH/ListUtils.cls.xml
===================================================================
diff -u -r2233 -r2626
--- TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 2233)
+++ TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 2626)
@@ -132,29 +132,21 @@
 ]]></Implementation>
 </Method>
 
-<Method name="RemoveObjectFromList">
+<Method name="RemoveItemFromList">
 <ClassMethod>1</ClassMethod>
-<FormalSpec><![CDATA[Object,&List:%ListOfObjects]]></FormalSpec>
+<FormalSpec>Value:%CacheString,List:%CacheString,AllOccurences:%Boolean=0</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	Set Removed = 0
-	Set Index = 0
-	Set Iterator = ##class(TECH.ListIterator).%New(List)
-	Set i = 0
-	While (Iterator.HasNext() && (Index = 0))
-	{
-		Set i = i + 1
-		If (Iterator.Next() = Object)
-		{
-			Set Index = i
+	set Removed = 0
+	set Index = List.Previous("")
+	while (Index'="") && (AllOccurences || ('Removed)) {
+		if List.GetAt(Index) = Value {
+			do List.RemoveAt(Index)
+			set Removed = 1
 		}
+		set Index = List.Previous(Index)
 	}
-	If (Index > 0)
-	{
-		Do List.RemoveAt(Index)
-		Set Removed = 1
-	}
-	Quit Removed
+	quit Removed
 ]]></Implementation>
 </Method>