--- a/Date.st	Wed May 11 11:22:10 2005 +0200
+++ b/Date.st	Wed May 11 11:31:03 2005 +0200
@@ -481,7 +481,9 @@
     (year between:0 and:99) ifTrue:[
         year := UserPreferences current twoDigitDateHandler value:year.
     ].
-    ^ self newDay:day month:month year:year.
+    [
+        ^ self newDay:day month:month year:year.
+    ] on:Error do:[:ex| ^ exceptionBlock value].
 
     "
      Date readFrom:'31 December 1992' printFormat:#(1 2 3) onError:'fail' 
@@ -2479,7 +2481,7 @@
 !Date class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.95 2005-03-18 14:41:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.96 2005-05-11 09:31:03 cg Exp $'
 ! !
 
 Date initialize!