Index: TECH/ListUtils.cls.xml
===================================================================
diff -u -r3035 -r3268
--- TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 3035)
+++ TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 3268)
@@ -263,6 +263,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="StartsWith">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>List:%ListOfDataTypes,Item:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set Iterator = ##class(TECH.ListIterator).%New(List)
+	#dim StartsWith As %Boolean = 0
+	While ('StartsWith) && (Iterator.HasNext())
+	{
+		Set StartsWith = ##class(TECH.StringUtils).StartsWith(Iterator.Next(),Item)
+	}
+	Quit StartsWith
+]]></Implementation>
+</Method>
+
 <Method name="RemoveItemFromList">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Value:%CacheString,List:%CacheString,AllOccurences:%Boolean=0</FormalSpec>