--- a/Date.st	Fri Sep 12 17:33:28 2014 +0200
+++ b/Date.st	Fri Sep 12 17:33:57 2014 +0200
@@ -1363,6 +1363,7 @@
 
     <resource: #obsolete>
 
+    self obsoleteMethodWarning:'use #newDay:month:year: (2014-09)'.
     ^ self newDay:day month:month year:year
 !
 
@@ -1373,6 +1374,7 @@
 
     <resource: #obsolete>
 
+    self obsoleteMethodWarning:'use #newDay:year: (2014-09)'.
     ^ self newDay:dayInYear year:year
 !
 
@@ -1383,6 +1385,7 @@
          since this method will vanish."
     <resource:#obsolete>
 
+    self obsoleteMethodWarning:'use #leapYear: (2014-09)'.
     ^ self leapYear:yearInteger
 ! !
 
@@ -3166,11 +3169,11 @@
 !Date class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.151 2014-09-12 15:16:00 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.152 2014-09-12 15:33:57 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.151 2014-09-12 15:16:00 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.152 2014-09-12 15:33:57 stefan Exp $'
 ! !