VersionInfo.st
branchjv
changeset 4167 ee0c93ae59e0
parent 4166 66a7a47f9253
parent 4163 32d1c2c5719b
--- a/VersionInfo.st	Mon Nov 28 17:11:46 2016 +0000
+++ b/VersionInfo.st	Mon Nov 28 17:24:53 2016 +0000
@@ -255,7 +255,13 @@
 timestamp
     timestamp notNil ifTrue:[^ timestamp].
     date isNil ifTrue:[^ nil].
-    time isNil ifTrue:[^ date asTimestamp].
+    time isNil ifTrue:[
+        Error handle:[:ex |
+            ^ nil
+        ] do:[    
+            ^ date asTimestamp
+        ].
+    ].
     ^ Timestamp fromDate:date andTime:time
 !