Index: TECH/StringUtils.cls.xml
===================================================================
diff -u -r751 -r759
--- TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 751)
+++ TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 759)
@@ -58,12 +58,23 @@
 
 <Method name="StartsWith">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>String:%String,StartsWith:%String</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
+<FormalSpec>String:%String,SubStrings...:%String</FormalSpec>
 <Implementation><![CDATA[
-	#dim Result As %Boolean = ( String="")&&(StartsWith="")
-	if 'Result set Result = (($P(String,StartsWith,1)="")&&$length(String))
-	quit Result
+	#dim StartsWith As %Boolean = 0
+	
+	set Iterator = ##class(TECH.ArrayOneDimIterator).%New(.SubStrings)
+	while ( Iterator.HasNext() ) && ( 'StartsWith ) {
+		#dim SubString As %string = Iterator.Next()	
+			if $length(String) && $length(SubString) {
+				set StartsWith = ( $piece(String,SubString,1)="" ) && ($length(String))
+			} elseif '$length(SubString) {
+				set StartsWith = 1
+			} elseif ( '$length(String) ) && ( '$length(SubString)) {
+				set StartsWith = 1
+		}
+	}
+	
+	quit StartsWith
 ]]></Implementation>
 </Method>