--- a/GIFReader.st	Sun Mar 02 19:39:45 2003 +0100
+++ b/GIFReader.st	Sun Mar 02 19:41:31 2003 +0100
@@ -803,8 +803,9 @@
             errorString:('GIF (currently) only supports depth8 images (cannot convert)').
     ].
 
-    aStream := FileStream newFileNamed:aFileName.
-    aStream isNil ifTrue:[
+    [
+        aStream := aFileName asFilename newReadWriteStream.
+    ] on:FileStream openErrorSignal do:[:ex|
         ^ Image fileCreationErrorSignal 
             raiseWith:image
             errorString:('file creation error: ' , aFileName asString).
@@ -1039,6 +1040,7 @@
 !GIFReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.78 2001-10-16 11:25:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.79 2003-03-02 18:41:31 stefan Exp $'
 ! !
+
 GIFReader initialize!