Index: TECH/KeyValue/UniqueList.cls.xml
===================================================================
diff -u -r1785 -r3595
--- TECH/KeyValue/UniqueList.cls.xml	(.../UniqueList.cls.xml)	(revision 1785)
+++ TECH/KeyValue/UniqueList.cls.xml	(.../UniqueList.cls.xml)	(revision 3595)
@@ -46,6 +46,29 @@
 ]]></Implementation>
 </Method>
 
+<Method name="RemoveByKey">
+<FormalSpec>Key:%Integer</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	#dim KeyValuePair As TECH.KeyValuePair = ""
+	#dim ListIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New($this)
+	#dim Status As %Status = $$$ERROR()
+	#dim Teller As %Integer = 1
+	While (ListIterator.HasNext() && ('KeyValuePair)) {		
+		#Dim CurrentKeyValuePair As TECH.KeyValuePair = ListIterator.Next()
+			
+		If (CurrentKeyValuePair.Key = Key) {
+			Set KeyValuePair = CurrentKeyValuePair
+			
+			Do ..RemoveAt(Teller)
+			Set Status = $$$OK
+		}
+		Set Teller = Teller + 1
+	}
+	Quit Status
+]]></Implementation>
+</Method>
+
 <Storage name="Custom">
 <Type>%Library.CompleteCustomStorage</Type>
 </Storage>