branch | jv |
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 !