--- a/Font.st	Wed Jul 09 01:19:21 2014 +0200
+++ b/Font.st	Wed Jul 09 03:38:27 2014 +0200
@@ -256,16 +256,18 @@
                     encoding:encodingSym
                     device:nil.
 
-    "look if this font is already known on the default device (the most common case)"
-
-    Display notNil ifTrue:[
-        Display deviceFonts do:[:aFont |
-            (newFont sameDeviceFontAs:aFont) ifTrue:[
-                "/ self assert:(aFont encoding = newFont encoding).
-                ^ aFont
-            ]
-        ]
-    ].
+"/    "look if this font is already known on the default device (the most common case)"
+"/ don't do this!!
+"/ is incompatible with Xft fonts. If reenabled, check printing in document viewer with XFT fonts enabled.
+"/
+"/    Display notNil ifTrue:[
+"/        Display deviceFonts do:[:aFont |
+"/            (newFont sameDeviceFontAs:aFont) ifTrue:[
+"/                "/ self assert:(aFont encoding = newFont encoding).
+"/                ^ aFont
+"/            ]
+"/        ]
+"/    ].
 
     ^ newFont
 
@@ -1337,11 +1339,11 @@
 !Font class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.137 2014-05-08 08:05:00 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.138 2014-07-09 01:38:27 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.137 2014-05-08 08:05:00 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.138 2014-07-09 01:38:27 cg Exp $'
 ! !