--- a/Date.st	Fri Feb 17 11:03:03 2017 +0100
+++ b/Date.st	Fri Feb 17 11:03:27 2017 +0100
@@ -3677,18 +3677,20 @@
     "append a representation to aStream, from which the receiver
      can be reconstructed"
 
-    aStream nextPutAll:'('; nextPutAll:'Date newDay:'.
+    aStream nextPut:$(; nextPutAll:'Date newDay:'.
     self day printOn:aStream.
     aStream nextPutAll:' month:'.
     self month printOn:aStream.
     aStream nextPutAll:' year:'.
     self year printOn:aStream.
-    aStream nextPutAll:')'
+    aStream nextPut:$)
 
     "
      Date today storeOn:Transcript
      Date today storeString
     "
+
+    "Modified: / 17-02-2017 / 10:57:34 / stefan"
 ! !
 
 !Date methodsFor:'private-accessing'!