--- a/UserPreferences.st	Thu Apr 21 17:11:30 2016 +0200
+++ b/UserPreferences.st	Thu Apr 21 17:20:23 2016 +0200
@@ -1938,9 +1938,6 @@
     
     dict := self at:#fontPreferences.
     dict isNil ifTrue:[^ self].
-
-    Display isNil ifTrue:[^ self].
-    Smalltalk isInitialized ifFalse:[^ self].
     
     getFont := 
         [:key|
@@ -1951,9 +1948,9 @@
                 fn := Object readFrom:s.
                 self useXftFontsOnly ifTrue:[
                     fn := XftFontDescription for:fn
-                ]    
+                ].    
+                Display notNil ifTrue:[fn := fn onDevice:Display].
             ].
-            fn notNil ifTrue:[fn := fn onDevice:Display].
             fn
         ].