--- a/Date.st	Wed Jan 27 15:09:56 2010 +0100
+++ b/Date.st	Wed Jan 27 15:10:32 2010 +0100
@@ -2696,7 +2696,7 @@
 
     |day ds dsPadded0 dsPaddedB month ms msPadded0 msPaddedB 
      year weekInYear monthName shortMonthName 
-     dayInWeek dayOfWeek dayName shortDayName ws wsPadded0 t|
+     dayInWeek dayOfWeek dayName shortDayName ws wsPadded0|
 
     day := self day.
     ds := day printString.
@@ -2740,21 +2740,13 @@
     ].
 
     aDictionary at:$d put:dsPadded0.
-    aDictionary at:#d put:dsPadded0.
     aDictionary at:$D put:ds.
-    aDictionary at:#D put:ds.
     aDictionary at:$m put:msPadded0.
-    aDictionary at:#m put:msPadded0.
     aDictionary at:$M put:ms.
-    aDictionary at:#M put:ms.
     aDictionary at:$y put:year.
-    aDictionary at:#y put:year.
-    aDictionary at:$Y put:(t := (year \\ 100) printStringLeftPaddedTo:2 with:$0).
-    aDictionary at:#Y put:t.
+    aDictionary at:$Y put:((year \\ 100) printStringLeftPaddedTo:2 with:$0).
     aDictionary at:$w put:wsPadded0.
-    aDictionary at:#w put:wsPadded0.
     aDictionary at:$W put:ws.
-    aDictionary at:#W put:ws.
 
     aDictionary at:#monthName put:monthName.
     aDictionary at:#monthname put:monthName.
@@ -3001,11 +2993,11 @@
 !Date class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.130 2010-01-27 14:08:06 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.131 2010-01-27 14:10:32 sr Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.130 2010-01-27 14:08:06 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.131 2010-01-27 14:10:32 sr Exp $'
 ! !
 
 Date initialize!