Index: TECH/StringUtils.cls.xml
===================================================================
diff -u -r2109 -r2131
--- TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 2109)
+++ TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 2131)
@@ -114,6 +114,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="FirstToUpper">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>String:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..ToUpper($Extract(String, 1, 1))_$Extract(String, 2, *)
+]]></Implementation>
+</Method>
+
 <Method name="HTMLEntities">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>String:%String</FormalSpec>