--- a/Font.st	Wed Jul 28 03:34:59 2010 +0200
+++ b/Font.st	Wed Jul 28 10:47:40 2010 +0200
@@ -612,7 +612,7 @@
         (encoding ~= fetchedEncoding
          and:[encoding ~= #'ms-default'
          and:[encoding ~= #*]]) ifTrue:[
-            'Font [warning]: encoding should be ' infoPrint. encoding infoPrint.
+            'Font [warning]: encoding for ' infoPrint. self infoPrint. ' should be ' infoPrint. encoding infoPrint.
             ' is ' infoPrint. fetchedEncoding infoPrintCR.
         ].
     ] ifFalse:[
@@ -1233,11 +1233,11 @@
 !Font class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.123 2010-07-27 14:38:20 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.124 2010-07-28 08:47:40 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.123 2010-07-27 14:38:20 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.124 2010-07-28 08:47:40 stefan Exp $'
 ! !
 
 Font initialize!