--- a/FontDescription.st	Fri Oct 22 19:03:30 1999 +0200
+++ b/FontDescription.st	Tue Oct 26 19:52:27 1999 +0200
@@ -559,6 +559,7 @@
 onDevice:aDevice
     "given the receiver, return a device Font"
 
+    aDevice isNil ifTrue:[^ self].
     ^ self on:aDevice
 
     "Created: 28.3.1997 / 16:09:30 / cg"
@@ -932,6 +933,6 @@
 !FontDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/FontDescription.st,v 1.31 1999-10-04 10:45:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/FontDescription.st,v 1.32 1999-10-26 17:52:18 cg Exp $'
 ! !
 FontDescription initialize!