--- a/Date.st	Sun Aug 27 02:49:37 1995 +0200
+++ b/Date.st	Sun Aug 27 02:54:50 1995 +0200
@@ -22,7 +22,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Date.st,v 1.25 1995-08-27 00:29:02 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Date.st,v 1.26 1995-08-27 00:54:50 claus Exp $
 '!
 
 !Date class methodsFor:'documentation'!
@@ -43,7 +43,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Date.st,v 1.25 1995-08-27 00:29:02 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Date.st,v 1.26 1995-08-27 00:54:50 claus Exp $
 "
 !
 
@@ -1068,22 +1068,21 @@
 
     "
      Date today storeOn:Transcript
+     Date today storeString
     "
 !
 
 printOn:aStream
     "append a printed representation of the receiver to aStream"
 
-    self day printOn:aStream.
-    aStream nextPutAll:'-'.
-    (Date abbreviatedNameOfMonth:self month) printOn:aStream.
-    aStream nextPutAll:'-'.
-    self year printOn:aStream
+    self printFormat:#(1 2 3 $- 2 1) on:aStream
 
     "
      Date today printOn:Transcript
+     Date today printNL
     "
-    "Date today printNL"
+
+    "Modified: 27.8.1995 / 01:01:49 / claus"
 !
 
 printFormat:aFormatArray