--- a/Date.st	Sun Mar 02 01:17:12 2014 +0100
+++ b/Date.st	Sun Mar 02 01:48:07 2014 +0100
@@ -798,8 +798,13 @@
      Date readYYYYMMDDFrom:'19991004' onError:['wrong date']  
      Date readYYYYMMDDFrom:'911004' onError:['wrong date']  
     "
+!
+
+year:yr month:mon day:day
+    ^ self newDay:day month:mon year:yr
 ! !
 
+
 !Date class methodsFor:'change & update'!
 
 update:something with:aParameter from:changedObject
@@ -3158,11 +3163,11 @@
 !Date class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.146 2013-05-02 17:18:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.147 2014-03-02 00:48:07 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.146 2013-05-02 17:18:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.147 2014-03-02 00:48:07 cg Exp $'
 ! !