Index: TECH/StringUtils.cls.xml
===================================================================
diff -u -r1479 -r1496
--- TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 1479)
+++ TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 1496)
@@ -470,6 +470,21 @@
 	quit Contains
 ]]></Implementation>
 </Method>
+
+<Method name="Equals">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>String:%String,SubStrings...:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim Equals As %Boolean = 0
+	
+	set Iterator = ##class(TECH.ArrayOneDimIterator).%New(.SubStrings)
+	while ( Iterator.HasNext() ) && ( 'Equals ) {
+		#dim SubString As %string = Iterator.Next()	
+		set Equals = ( String=SubString) 
+	}
+	quit Equals
+]]></Implementation>
+</Method>
 </Class>