--- a/Font.st	Fri Oct 22 19:03:30 1999 +0200
+++ b/Font.st	Tue Oct 26 19:52:27 1999 +0200
@@ -405,6 +405,8 @@
     "if I am already assigned to that device ..."
     (device == aDevice) ifTrue:[^ self].
 
+    aDevice isNil ifTrue:[^ self].
+        
     "first look if not already there"
     aDevice deviceFonts do:[:aFont |
         (size == aFont size) ifTrue:[
@@ -1102,6 +1104,6 @@
 !Font class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.72 1999-09-26 13:30:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.73 1999-10-26 17:52:10 cg Exp $'
 ! !
 Font initialize!