--- a/Date.st	Wed Apr 22 19:45:38 2015 +0200
+++ b/Date.st	Wed Apr 22 19:50:37 2015 +0200
@@ -882,6 +882,7 @@
     ^ self newDay:day month:mon year:yr
 ! !
 
+
 !Date class methodsFor:'change & update'!
 
 update:something with:aParameter from:changedObject
@@ -1696,6 +1697,7 @@
     ^ self leapYear:yearInteger
 ! !
 
+
 !Date class methodsFor:'private'!
 
 dayAbbrevsForLanguage:languageOrNilForDefault
@@ -1869,6 +1871,7 @@
     "
 ! !
 
+
 !Date methodsFor:'Compatibility-ANSI'!
 
 dayOfWeek
@@ -3025,6 +3028,7 @@
 ! !
 
 
+
 !Date methodsFor:'obsolete'!
 
 asAbsoluteTime
@@ -3360,7 +3364,7 @@
 
     |s|
 
-    s := WriteStream on:(String new:20).
+    s := CharacterWriteStream new:20.
     self printOn:s format:aFormatStringOrArray language:languageOrNil.
     ^ s contents.
 
@@ -3471,11 +3475,11 @@
 !Date class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.168 2015-03-26 17:06:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.169 2015-04-22 17:50:37 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.168 2015-03-26 17:06:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.169 2015-04-22 17:50:37 stefan Exp $'
 ! !