Index: vhLib/Macro.inc.rou
===================================================================
diff -u -r1927 -r1932
--- vhLib/Macro.inc.rou	(.../Macro.inc.rou)	(revision 1927)
+++ vhLib/Macro.inc.rou	(.../Macro.inc.rou)	(revision 1932)
@@ -156,3 +156,4 @@
 
 
 #define CurrentDate				##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
+#define CurrentTimeStamp		##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentTimeStamp()
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,"*")