Index: TECH/StringUtils.cls.xml
===================================================================
diff -u -r2165 -r4000
--- TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 2165)
+++ TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 4000)
@@ -130,5 +130,12 @@
 	 Quit Pattern
 ]]></Implementation>
 </Method>
+
+<Method name="AlignRight">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Input:%String,Filler:%String,Width:%String</FormalSpec>
+<Implementation><![CDATA[	Quit $Tr($J(Input,Width)," ",Filler)
+]]></Implementation>
+</Method>
 </Class>
 </Export>