--- a/RegressionTests__TimeAndDateTest.st	Thu Jun 25 17:16:50 2009 +0200
+++ b/RegressionTests__TimeAndDateTest.st	Thu Jun 25 17:30:25 2009 +0200
@@ -65,6 +65,18 @@
                   ) = (Date newDay:2 month:5 year:2010).
 
      self assert:(Date 
+                    readFrom:'2-may-2010'
+                    printFormat:'%d-%(shortMonthName)-%y' 
+                    onError:[self error]
+                  ) = (Date newDay:2 month:5 year:2010).
+
+     self assert:(Date 
+                    readFrom:'2-may-2010'
+                    printFormat:'%d-%(monthName)-%y' 
+                    onError:[self error]
+                  ) = (Date newDay:2 month:5 year:2010).
+
+     self assert:(Date 
                     readFrom:'2-5-2010'
                     printFormat:'%d-%m-%y' 
                     onError:[self error]