author | Claus Gittinger <cg@exept.de> |
Thu, 24 Nov 2016 14:02:48 +0100 | |
changeset 4163 | 32d1c2c5719b |
parent 4161 | 55ad833b981e |
child 4164 | 640b3d01efb9 |
child 4167 | ee0c93ae59e0 |
VersionInfo.st | file | annotate | diff | comparison | revisions |
--- a/VersionInfo.st Fri Nov 18 18:06:46 2016 +0100 +++ b/VersionInfo.st Thu Nov 24 14:02:48 2016 +0100 @@ -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 !