--- a/Form.st	Fri Oct 22 19:03:30 1999 +0200
+++ b/Form.st	Tue Oct 26 19:52:27 1999 +0200
@@ -1249,6 +1249,8 @@
     aDevice == device ifTrue:[
         ^ self
     ].
+    aDevice isNil ifTrue:[^ self].
+
     "create a new form ..."
 
     data notNil ifTrue:[
@@ -1920,6 +1922,6 @@
 !Form class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.100 1999-10-10 12:43:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.101 1999-10-26 17:52:00 cg Exp $'
 ! !
 Form initialize!