--- a/UserPreferences.st	Wed May 11 14:30:17 2016 +0200
+++ b/UserPreferences.st	Wed May 11 16:25:54 2016 +0200
@@ -1970,8 +1970,12 @@
                 fn := Object readFrom:s.
                 self useXftFontsOnly ifTrue:[
                     fn := XftFontDescription for:fn
-                ].    
-                Display notNil ifTrue:[fn := fn onDevice:Display].
+		    "/ cg: don't allocate on the display, because it takes
+		    "/ dam long sometimes when Xft fonts are used.
+		    "/ startup feels better, if we do it lazy.
+                ] ifFalse:[    
+                    Display notNil ifTrue:[fn := fn onDevice:Display].
+		]
             ].
             fn
         ].