--- a/XBMReader.st	Sun Mar 02 19:34:01 2003 +0100
+++ b/XBMReader.st	Sun Mar 02 19:39:45 2003 +0100
@@ -301,8 +301,9 @@
             errorString:('XBM format does not support an imageMask').
     ].
 
-    outStream := FileStream newFileNamed:aFileName.
-    outStream isNil ifTrue:[
+    [
+        outStream := aFileName asFilename newReadWriteStream.
+    ] on:FileStream openErrorSignal do:[:ex|
         ^ Image fileCreationErrorSignal 
             raiseWith:image
             errorString:('file creation error: ' , aFileName asString).
@@ -364,6 +365,7 @@
 !XBMReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/XBMReader.st,v 1.45 2001-10-16 11:25:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/XBMReader.st,v 1.46 2003-03-02 18:39:33 stefan Exp $'
 ! !
+
 XBMReader initialize!