Index: TECH/File/impl/FileAPI.cls.xml
===================================================================
diff -u -r1412 -r1479
--- TECH/File/impl/FileAPI.cls.xml	(.../FileAPI.cls.xml)	(revision 1412)
+++ TECH/File/impl/FileAPI.cls.xml	(.../FileAPI.cls.xml)	(revision 1479)
@@ -30,7 +30,9 @@
 
 <Method name="GeefFileNameGenerator">
 <ReturnType>TECH.File.FileNameGenerator</ReturnType>
-<Implementation><![CDATA[	Quit ##class(TECH.File.impl.FileNameGenerator).Instance()
+<Implementation><![CDATA[
+	Write "Echte filenamegen"
+	Quit ##class(TECH.File.impl.FileNameGenerator).Instance()
 ]]></Implementation>
 </Method>
 </Class>
Index: TECH/StringUtils.cls.xml
===================================================================
diff -u -r1097 -r1479
--- TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 1097)
+++ TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 1479)
@@ -201,7 +201,7 @@
 
 <Method name="AlignRight">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>Input:%String,Filler:%String,Width:%String</FormalSpec>
+<FormalSpec>Input:%String,Filler:%String,Width:%Integer</FormalSpec>
 <Implementation><![CDATA[	Quit $Tr($J(Input,Width)," ",Filler)
 ]]></Implementation>
 </Method>