--- a/XPMReader.st	Sun Mar 02 19:34:01 2003 +0100
+++ b/XPMReader.st	Sun Mar 02 19:39:45 2003 +0100
@@ -507,8 +507,9 @@
         nChars := 2.
     ].
 
-    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).
@@ -572,7 +573,7 @@
 !XPMReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.48 2002-10-25 18:27:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.49 2003-03-02 18:39:45 stefan Exp $'
 ! !
 
 XPMReader initialize!