Index: TECH/ListUtils.cls.xml
===================================================================
diff -u -r12 -r90
--- TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 12)
+++ TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 90)
@@ -280,6 +280,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsValueInIterator">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Value:%String,ItemsIterator:TECH.Iterator,EqualsComparator:TECH.EqualsComparator.EqualsComparator=##class(TECH.EqualsComparator.StringEqualsComparator).%New()</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim IsInList As %Boolean = 0
+	While (ItemsIterator.HasNext()) && (IsInList=0) {
+		If EqualsComparator.IsEquals(ItemsIterator.Next(),Value) {
+			Set IsInList=1
+		}
+	}
+	Quit IsInList
+]]></Implementation>
+</Method>
+
 <Method name="GeefMaximum">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Lijst:%ListOfObjects,Comparator:TECH.Comparator.IComparator</FormalSpec>
Index: TECH/EqualsComparator/EqualsComparator.cls.xml
===================================================================
diff -u
--- TECH/EqualsComparator/EqualsComparator.cls.xml	(revision 0)
+++ TECH/EqualsComparator/EqualsComparator.cls.xml	(revision 90)
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.EqualsComparator.EqualsComparator">
+<Abstract>1</Abstract>
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+
+<Method name="IsEquals">
+<Abstract>1</Abstract>
+<FormalSpec>Value1:%CacheString,Value2:%CacheString</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/EqualsComparator/StringEqualsComparator.cls.xml
===================================================================
diff -u
--- TECH/EqualsComparator/StringEqualsComparator.cls.xml	(revision 0)
+++ TECH/EqualsComparator/StringEqualsComparator.cls.xml	(revision 90)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.EqualsComparator.StringEqualsComparator">
+<Super>TECH.EqualsComparator.EqualsComparator,%RegisteredObject</Super>
+
+<Method name="IsEquals">
+<FormalSpec>Value1:%CacheString,Value2:%CacheString</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit Value1 = Value2
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>