Index: TECH/ObjectListUtils.cls.xml
===================================================================
diff -u -r1896 -r2140
--- TECH/ObjectListUtils.cls.xml	(.../ObjectListUtils.cls.xml)	(revision 1896)
+++ TECH/ObjectListUtils.cls.xml	(.../ObjectListUtils.cls.xml)	(revision 2140)
@@ -80,6 +80,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="RemoveItemWithPropertyValue">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>List:%ListOfObjects,Property:%String,Value:%String=""</FormalSpec>
+<Implementation><![CDATA[
+	#dim i As TECH.Integer
+	For i=List.Count():-1:1 {
+		If ($Property(List.GetAt(i),Property)=Value) {
+			Do List.RemoveAt(i)
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="FindMethodWithValue">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>List:%ListOfObjects,Method:%String,Value:%String=""</FormalSpec>