--- a/Font.st	Wed Apr 25 18:58:41 2012 +0200
+++ b/Font.st	Wed Apr 25 21:05:49 2012 +0200
@@ -488,7 +488,7 @@
         id notNil ifTrue:[
             ('Font [info]: use alternative: ', alternateFamilyName , ' for: ' , (self userFriendlyName)) infoPrintCR.
         ] ifFalse:[
-            id := aDevice getDefaultFont.
+            id := aDevice getDefaultFontWithEncoding:encoding.
             ('Font [info]: use default for ' , (self userFriendlyName)) infoPrintCR.
         ].
         id isNil ifTrue:[
@@ -1239,11 +1239,11 @@
 !Font class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.126 2010-12-20 11:08:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.127 2012-04-25 19:05:49 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.126 2010-12-20 11:08:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.127 2012-04-25 19:05:49 stefan Exp $'
 ! !
 
 Font initialize!