Index: TECH/StringUtils.cls.xml
===================================================================
diff -u -r4000 -r5647
--- TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 4000)
+++ TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 5647)
@@ -137,5 +137,43 @@
 <Implementation><![CDATA[	Quit $Tr($J(Input,Width)," ",Filler)
 ]]></Implementation>
 </Method>
+
+<Method name="AddTrailingSpace">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Input:%String,Width:%Integer=50</FormalSpec>
+<Implementation><![CDATA[	quit ..AddTrailingChar(Input," ",Width)
+]]></Implementation>
+</Method>
+
+<Method name="AddLeadingChar">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Input:%String,Char:%String=" ",Width:%Integer=50</FormalSpec>
+<Implementation><![CDATA[
+	set result = Input
+	while $length(result) < Width {
+		set result = $extract(Char)_result
+	}
+	quit result
+]]></Implementation>
+</Method>
+
+<Method name="AddTrailingChar">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Input:%String,Char:%String=" ",Width:%Integer=50</FormalSpec>
+<Implementation><![CDATA[
+	set result = Input
+	while $length(result) < Width {
+		set result = result _ $extract(Char)
+	}
+	quit result
+]]></Implementation>
+</Method>
+
+<Method name="AddLeadingSpace">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Input:%String,Width:%Integer=50</FormalSpec>
+<Implementation><![CDATA[	quit ..AddLeadingChar(Input," ",Width)
+]]></Implementation>
+</Method>
 </Class>
 </Export>