--- a/Date.st	Wed Oct 07 16:14:05 2009 +0200
+++ b/Date.st	Wed Oct 07 17:33:07 2009 +0200
@@ -357,7 +357,7 @@
      is different from the format expected by readFrom:.
      BUG:
        This method handles american format (i.e. month/day/year),
-       common  format with letter month in the middle (10 December 2007)
+       common format with letter month in the middle (10 December 2007)
        and ISO format (yyyy-mm-dd) - as long as yyyy is > 12.
 
        It does not handle the german/french and other dd-mm-yyyy.
@@ -444,6 +444,11 @@
      Date readFrom:'5:12:1999' printFormat:#( 2 1 3 )  
      Date readFrom:'may-12-1999' printFormat:#( 2 1 3 )  
      Date readFrom:'1999 may 12' printFormat:#( 3 2 1 )  
+
+     Date readFrom:'31/12/01' printFormat:'%d %m %y' onError:'fail'       
+     Date readFrom:'12/01' printFormat:'%m %y' onError:'fail'       
+     Date readFrom:'01' printFormat:'%y' onError:'fail'        
+     Date readFrom:'30.01' printFormat:'%d %m' onError:'fail'       
     "
 
     "Created: 16.11.1995 / 22:50:17 / cg"
@@ -2948,11 +2953,11 @@
 !Date class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.128 2009-10-02 13:56:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.129 2009-10-07 15:33:07 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.128 2009-10-02 13:56:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.129 2009-10-07 15:33:07 cg Exp $'
 ! !
 
 Date initialize!