Index: vhUnitTest/TECH/StringUtils/ToFirstCase/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/StringUtils/ToFirstCase/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/StringUtils/ToFirstCase/Test.cls.xml	(revision 3447)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.StringUtils.ToFirstCase.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Default werking">
+<Implementation><![CDATA[
+	Do $$$AssertEquals(##class(TECH.StringUtils).ToFirstCase("UpperCamelCase"),"Uppercamelcase")
+	Do $$$AssertEquals(##class(TECH.StringUtils).ToFirstCase("UPPERCASE"),"Uppercase")
+	Do $$$AssertEquals(##class(TECH.StringUtils).ToFirstCase("lowercase"),"Lowercase")
+	Do $$$AssertEquals(##class(TECH.StringUtils).ToFirstCase("1234NuMmErS"),"1234nummers")
+	Do $$$AssertEquals(##class(TECH.StringUtils).ToFirstCase(" EerstEenSpatie")," eersteenspatie")
+	Do $$$AssertEquals(##class(TECH.StringUtils).ToFirstCase("#%!SpecialeTekens"),"#%!specialetekens")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/StringUtils.cls.xml
===================================================================
diff -u -r3426 -r3447
--- TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 3426)
+++ TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 3447)
@@ -660,6 +660,19 @@
 	Quit Stream.Read($SYSTEM.SYS.MaxLocalLength())
 ]]></Implementation>
 </Method>
+
+<Method name="ToFirstCase">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>String:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Result As %String = ""
+	
+	Set Result = ##class(TECH.StringUtils).FirstToUpper(##class(TECH.StringUtils).ToLower(String))
+	
+	Quit Result
+]]></Implementation>
+</Method>
 </Class>