--- a/GIFReader.st	Fri Sep 12 12:38:06 2003 +0200
+++ b/GIFReader.st	Fri Sep 12 13:40:49 2003 +0200
@@ -752,7 +752,7 @@
 save:image onFile:aFileName
     "save image as GIF file on aFileName"
 
-    |aStream convertedImage|
+    |convertedImage|
 
     image depth ~~ 8 ifTrue:[
         Image errorSignal handle:[:ex |
@@ -772,15 +772,7 @@
             errorString:('GIF (currently) only supports depth8 images (cannot convert)').
     ].
 
-    [
-        aStream := aFileName asFilename newReadWriteStream.
-    ] on:FileStream openErrorSignal do:[:ex|
-        ^ Image fileCreationErrorSignal 
-            raiseWith:image
-            errorString:('file creation error: ' , aFileName asString).
-    ].
-    self save:image onStream:aStream.
-    aStream close.
+    super save:image onFile:aFileName.
 
     "
      |i|
@@ -988,7 +980,7 @@
 !GIFReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.87 2003-09-09 11:30:24 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.88 2003-09-12 11:40:36 cg Exp $'
 ! !
 
 GIFReader initialize!