--- a/Image.st	Mon Nov 21 23:51:59 2016 +0100
+++ b/Image.st	Tue Nov 22 01:49:16 2016 +0100
@@ -5772,7 +5772,7 @@
     samplesPerPixel := self samplesPerPixel.
 
     photometricOrNil isNil ifTrue:[
-        photometric := self class defaultPhotometric
+        photometric := anImage photometric. "/ self class defaultPhotometric
         "/ photometric := anImage photometric
     ] ifFalse:[
         photometricOrNil == #rgba ifTrue:[
@@ -5888,7 +5888,7 @@
      ]
     "
 
-    "Modified: / 05-02-2011 / 17:46:58 / cg"
+    "Modified: / 22-11-2016 / 01:41:31 / cg"
 !
 
 fromSubImage:anImage in:aRectangle