Index: TECH/StringUtils.cls.xml
===================================================================
diff -u -r1074 -r1746
--- TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 1074)
+++ TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 1746)
@@ -30,5 +30,21 @@
 <Implementation><![CDATA[	quit (($P(String,StartsWith,1)="")&&($L(String)))
 ]]></Implementation>
 </Method>
+
+<Method name="ToLower">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>String:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $ZCVT(String,"L")
+]]></Implementation>
+</Method>
+
+<Method name="ToUpper">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>String:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $ZCVT(String,"U")
+]]></Implementation>
+</Method>
 </Class>
 </Export>