--- a/Image.st	Mon Aug 03 12:12:32 2009 +0200
+++ b/Image.st	Mon Aug 03 15:49:50 2009 +0200
@@ -5684,7 +5684,7 @@
 
     depth := aDevice depth.
     myDepth := self depth.
-self halt.
+
     "/ compute scale to map from my pixels into devices range
 
     scaleDown := 1 bitShift:myDepth.
@@ -14092,7 +14092,7 @@
 !Image class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Image.st,v 1.426 2009-08-03 10:12:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Image.st,v 1.427 2009-08-03 13:49:50 cg Exp $'
 ! !
 
 Image initialize!