Index: TECH/StringUtils.cls.xml
===================================================================
diff -u -r676 -r724
--- TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 676)
+++ TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 724)
@@ -59,10 +59,34 @@
 <Method name="StartsWith">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>String:%String,StartsWith:%String</FormalSpec>
-<Implementation><![CDATA[	quit (($P(String,StartsWith,1)="")&&($L(String)))
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Result As %Boolean = ( String="")&&(StartsWith="")
+	if 'Result set Result = (($P(String,StartsWith,1)="")&&$length(String))
+	quit Result
 ]]></Implementation>
 </Method>
 
+<Method name="EndsWith">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>String:%String,EndsWith:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..StartsWith(..Reverse(String),..Reverse(EndsWith))
+]]></Implementation>
+</Method>
+
+<Method name="Reverse">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>String:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Result As %String = ""
+	#dim ctrChar As %Integer
+	for ctrChar = $length(String) : -1 : 1 set Result = Result _ $extract(String,ctrChar)
+	quit Result
+]]></Implementation>
+</Method>
+
 <Method name="ToLower">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>String:%String</FormalSpec>