--- a/Font.st	Thu Jun 10 04:06:36 1999 +0200
+++ b/Font.st	Thu Jun 10 14:53:12 1999 +0200
@@ -246,13 +246,15 @@
     "look if this font is already known on the default device
      (the most common case)"
 
-    Display deviceFonts do:[:aFont |
-	(aFont family = family) ifTrue:[
-	    (aFont face = faceString) ifTrue:[
-		(aFont style = styleString) ifTrue:[
-		     (aFont size == sizeNum) ifTrue:[
-			(encodingSym isNil or:[aFont encoding == encodingSym]) ifTrue:[
-			    ^ aFont
+    Display notNil ifTrue:[
+        Display deviceFonts do:[:aFont |
+	    (aFont family = family) ifTrue:[
+	        (aFont face = faceString) ifTrue:[
+		    (aFont style = styleString) ifTrue:[
+		         (aFont size == sizeNum) ifTrue:[
+			    (encodingSym isNil or:[aFont encoding == encodingSym]) ifTrue:[
+			        ^ aFont
+			    ]
 			]
 		    ]
 		]
@@ -1103,6 +1105,6 @@
 !Font class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.66 1999-03-30 17:40:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.67 1999-06-10 12:53:12 cg Exp $'
 ! !
 Font initialize!