Index: TECH/Files.cls.xml
===================================================================
diff -u -r554 -r923
--- TECH/Files.cls.xml	(.../Files.cls.xml)	(revision 554)
+++ TECH/Files.cls.xml	(.../Files.cls.xml)	(revision 923)
@@ -24,7 +24,7 @@
 <Method name="GeefCurrentTimeStamp">
 <ClassMethod>1</ClassMethod>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	 Quit $TR($ZDT($h,8)," :","_")
+<Implementation><![CDATA[	 Quit $TR($ZDT(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog(),8)," :","_")
 ]]></Implementation>
 </Method>