Index: TECH/StringUtils.cls.xml
===================================================================
diff -u -r1906 -r2105
--- TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 1906)
+++ TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 2105)
@@ -299,13 +299,15 @@
 <Method name="AddTrailingSpace">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Input:%String,Width:%Integer=50</FormalSpec>
+<ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[	quit ..AddTrailingChar(Input," ",Width)
 ]]></Implementation>
 </Method>
 
 <Method name="AddLeadingChar">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Input:%String,Char:%String=" ",Width:%Integer=50</FormalSpec>
+<ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
 	set result = Input
 	while $length(result) < Width {
@@ -318,6 +320,7 @@
 <Method name="AddTrailingChar">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Input:%String,Char:%String=" ",Width:%Integer=50</FormalSpec>
+<ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
 	set result = Input
 	while $length(result) < Width {
@@ -330,6 +333,7 @@
 <Method name="AddLeadingSpace">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Input:%String,Width:%Integer=50</FormalSpec>
+<ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[	quit ..AddLeadingChar(Input," ",Width)
 ]]></Implementation>
 </Method>