--- a/TIFFRdr.st	Thu Feb 27 12:05:52 1997 +0100
+++ b/TIFFRdr.st	Thu Feb 27 12:50:58 1997 +0100
@@ -1637,8 +1637,15 @@
 
     outStream := FileStream newFileNamed:aFileName.
     outStream isNil ifTrue:[
-        'TIFFReader [warning]: create error' errorPrintCR. 
-        ^ nil
+        ^ Image fileCreationErrorSignal 
+            raiseWith:image
+            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"
@@ -1717,12 +1724,12 @@
     self writeLong:0.                "end of tags mark"
     outStream close
 
-    "Modified: 10.1.1997 / 18:13:38 / cg"
+    "Modified: 27.2.1997 / 12:46:26 / cg"
 ! !
 
 !TIFFReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/TIFFRdr.st,v 1.49 1997-02-20 17:17:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/TIFFRdr.st,v 1.50 1997-02-27 11:50:14 cg Exp $'
 ! !
 TIFFReader initialize!