--- a/Depth1Image.st	Fri Jul 31 19:33:47 1998 +0200
+++ b/Depth1Image.st	Fri Jul 31 19:34:29 1998 +0200
@@ -265,17 +265,17 @@
         f colorMap:(Array with:(self colorFromValue:0)
                           with:(self colorFromValue:1)).
 
-        device isNil ifTrue:[
-            deviceForm isNil ifTrue:[
-                device := aDevice.
-                deviceForm := f.
-            ]
+        "/ remember deviceForm
+
+        (device isNil or:[deviceForm isNil]) ifTrue:[
+            device := aDevice.
+            deviceForm := f.
         ]
     ].
     ^ f
 
     "Created: / 14.6.1996 / 15:20:00 / cg"
-    "Modified: / 30.7.1998 / 14:42:46 / cg"
+    "Modified: / 31.7.1998 / 17:25:31 / cg"
 !
 
 greyImageAsFormOn:aDevice
@@ -753,5 +753,5 @@
 !Depth1Image class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Depth1Image.st,v 1.36 1998-07-30 13:08:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Depth1Image.st,v 1.37 1998-07-31 17:34:29 cg Exp $'
 ! !