--- a/Date.st	Wed Sep 02 06:45:47 2015 +0200
+++ b/Date.st	Sat Sep 05 09:15:28 2015 +0100
@@ -3674,7 +3674,7 @@
     "append a representation to aStream, from which the receiver
      can be reconstructed"
 
-    aStream nextPutAll:'('; nextPutAll:'Date day:'.
+    aStream nextPutAll:'('; nextPutAll:'Date newDay:'.
     self day printOn:aStream.
     aStream nextPutAll:' month:'.
     self month printOn:aStream.