--- a/Font.st	Tue Oct 09 23:25:30 2007 +0200
+++ b/Font.st	Wed Oct 17 11:33:45 2007 +0200
@@ -267,8 +267,6 @@
     "Modified: / 26.9.1999 / 13:49:45 / cg"
 ! !
 
-
-
 !Font methodsFor:'accessing'!
 
 device
@@ -524,7 +522,7 @@
     ].
     aStream nextPutAll:('a ' , family , '-' , 
                                face , '-' , 
-                               style , '-' , 
+                               style printString , '-' , 
                                size printString , 
                                ' (' , encoding printString , ')' ,
                                '-Font')
@@ -1161,7 +1159,7 @@
 !Font class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.100 2007-04-13 14:15:42 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.101 2007-10-17 09:33:45 sr Exp $'
 ! !
 
 Font initialize!