Index: TECH/StringUtils.cls.xml
===================================================================
diff -u -r1597 -r1906
--- TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 1597)
+++ TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 1906)
@@ -485,6 +485,22 @@
 	quit Equals
 ]]></Implementation>
 </Method>
+
+<Method name="IsEmpty">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>String:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (String = "")
+]]></Implementation>
+</Method>
+
+<Method name="IsNotEmpty">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>String:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit $$$Not(..IsEmpty(String))
+]]></Implementation>
+</Method>
 </Class>