--- a/Font.st	Thu Jul 15 21:41:52 1999 +0200
+++ b/Font.st	Thu Jul 15 21:44:57 1999 +0200
@@ -519,7 +519,8 @@
 !Font methodsFor:'printing & storing'!
 
 printOn:aStream
-    "append a printed representation of the receiver to aStream.
+    "append a user printed representation of the receiver to aStream.
+     The format is suitable for a human - not meant to be read back.
      Redefined to print more about the fonts name"
 
     face isNil ifTrue:[
@@ -1105,6 +1106,6 @@
 !Font class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.67 1999-06-10 12:53:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.68 1999-07-15 19:44:57 cg Exp $'
 ! !
 Font initialize!