Index: TECH/Files.cls.xml
===================================================================
diff -u -r1911 -r1932
--- TECH/Files.cls.xml	(.../Files.cls.xml)	(revision 1911)
+++ TECH/Files.cls.xml	(.../Files.cls.xml)	(revision 1932)
@@ -210,7 +210,7 @@
 
 <Method name="RemoveDirectoryTreeOlderThen">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>Path:%String,Tijdstip:%TimeStamp</FormalSpec>
+<FormalSpec>Path:%String,Tijdstip:%TimeStamp=$$$CurrentTimeStamp</FormalSpec>
 <Implementation><![CDATA[
 	Set ResultSet = ##class(%ResultSet).%New("%File:FileSet")
 	Do ResultSet.Execute(Path,"*")
@@ -227,7 +227,7 @@
 
 <Method name="RemoveFilesOlderThen">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>Path:%String,Tijdstip:%TimeStamp</FormalSpec>
+<FormalSpec>Path:%String,Tijdstip:%TimeStamp=$$$CurrentTimeStamp</FormalSpec>
 <Implementation><![CDATA[
 	Set ResultSet = ##class(%ResultSet).%New("%File:FileSet")
 	Do ResultSet.Execute(Path,"*")