--- a/TIFFReader.st	Fri Sep 25 20:23:19 1998 +0200
+++ b/TIFFReader.st	Thu Oct 01 12:50:21 1998 +0200
@@ -2101,6 +2101,12 @@
 
     |pos1 pos|
 
+    image mask notNil ifTrue:[
+        Image informationLostQuerySignal
+            raiseWith:image
+            errorString:('TIFF writer does not (yet) support an imageMask').
+    ].
+
     outStream := FileStream newFileNamed:aFileName.
     outStream isNil ifTrue:[
         ^ Image fileCreationErrorSignal 
@@ -2108,12 +2114,6 @@
             errorString:('file creation error: ' , aFileName asString).
     ].
 
-    image mask notNil ifTrue:[
-        Image informationLostQuerySignal
-            raiseWith:image
-            errorString:('TIFF writer does not (yet) support an imageMask').
-    ].
-
     "save as msb"
 
     byteOrder := #msb.
@@ -2190,12 +2190,12 @@
     self writeLong:0.                "end of tags mark"
     outStream close
 
-    "Modified: 27.2.1997 / 12:46:26 / cg"
+    "Modified: / 30.9.1998 / 23:30:18 / cg"
 ! !
 
 !TIFFReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/TIFFReader.st,v 1.61 1998-08-12 12:04:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/TIFFReader.st,v 1.62 1998-10-01 10:49:33 cg Exp $'
 ! !
 TIFFReader initialize!