Index: TECH/StringUtils.cls.xml
===================================================================
diff -u -r1515 -r1534
--- TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 1515)
+++ TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 1534)
@@ -131,6 +131,13 @@
 	 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>