--- a/Form.st	Mon Oct 04 11:18:27 1999 +0200
+++ b/Form.st	Mon Oct 04 11:18:47 1999 +0200
@@ -132,7 +132,12 @@
                 PrimitiveFailureSignal handle:[:ex |
                     'Form [warning]: cannot fetch form bits from device' errorPrintCR
                 ] do:[
-                    aDrawable getBits
+                    |dev|
+
+                    ((dev := aDrawable device) isNil   
+                    or:[dev isPersistentInSnapshot]) ifTrue:[
+                        aDrawable getBits
+                    ]
                 ]
             ]
         ]
@@ -1886,6 +1891,6 @@
 !Form class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.97 1999-08-18 20:52:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.98 1999-10-04 09:18:47 cg Exp $'
 ! !
 Form initialize!