--- a/Message.st	Thu Jul 15 17:07:02 1999 +0200
+++ b/Message.st	Thu Jul 15 21:45:54 1999 +0200
@@ -152,7 +152,8 @@
 !
 
 printOn:aStream
-    "return a string for printing the receiver"
+    "append a user printed representation of the receiver to aStream.
+     The format is suitable for a human - not meant to be read back."
 
     selector printOn:aStream
 ! !
@@ -184,5 +185,5 @@
 !Message class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Message.st,v 1.20 1996-10-28 16:08:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Message.st,v 1.21 1999-07-15 19:44:17 cg Exp $'
 ! !