--- a/Depth1Image.st	Mon Aug 08 17:13:01 2016 +0200
+++ b/Depth1Image.st	Mon Aug 08 17:13:04 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -196,7 +194,7 @@
 
     |f c0 c1|
 
-    f := Form width:width height:height fromArray:self bits onDevice:aDevice.
+    f := Form imageForm width:width height:height fromArray:self bits onDevice:aDevice.
     c0 := self colorFromValue:0.
     c1 := self colorFromValue:1.
     c0 brightness > 0.5 ifTrue:[
@@ -614,11 +612,12 @@
 
     "all colors are available, this is easy now"
 
-    form := Form onDevice:aDevice.
+    form := Form imageForm onDevice:aDevice.
     form notNil ifTrue:[
         form
             colorMap:(Array with:color0 with:color1);
-            width:width height:height fromArray:self bits.
+            width:width height:height fromArray:self bits;
+            forgetBits.
 
         "/ remember deviceForm
         (device isNil or:[deviceForm isNil]) ifTrue:[