--- a/core/RGStampParser.st	Fri Dec 18 12:22:51 2020 +0000
+++ b/core/RGStampParser.st	Wed Dec 23 08:46:20 2020 +0000
@@ -129,11 +129,11 @@
 timeForStamp: stamp
 
     ^ stamp
-        ifNil: [ 	DateAndTime new]
+        ifNil: [ Timestamp epoch ]
         ifNotNil: [ 
             | substrings |
             substrings := stamp substrings.
-            ([(DateAndTime fromString: (' ' join: substrings allButFirst ))] on: Exception do: [DateAndTime epoch]) ]. 
+            ([(DateAndTime fromString: (' ' join: substrings allButFirst ))] on: Exception do: [Timestamp epoch]) ]. 
     
 ! !