--- 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!

--- a/ST80FormReader.st	Fri Sep 12 12:38:06 2003 +0200
+++ b/ST80FormReader.st	Fri Sep 12 13:40:49 2003 +0200
@@ -142,9 +142,8 @@
 
 !ST80FormReader methodsFor:'writing'!
 
-save:image onFile:aFileName
-    "save image as XBM file on aFileName.
-     This is obsolete - use the XBMReader directly."
+save:image onStream:aStream
+    "save image as XBM file on aStream."
 
     (self class canRepresent:image) ifFalse:[
         ^ Image cannotRepresentImageSignal 
@@ -158,12 +157,7 @@
             errorString:('ST80Form format does not support an imageMask').
     ].
 
-    outStream := FileStream newFileNamed:aFileName.
-    outStream isNil ifTrue:[
-        ^ Image fileCreationErrorSignal 
-            raiseWith:image
-            errorString:('file creation error: ' , aFileName asString).
-    ].
+    outStream := aStream.
 
     width := image width.
     height := image height.
@@ -180,9 +174,9 @@
     outStream nextPutWord:0.
     outStream nextPutBytes:(data size) from:data.
 
-    outStream close
-
-    "ST80FormReader save:(Image fromFile:'bitmaps/SBrowser.xbm') onFile:'test.form'"
+    "
+     ST80FormReader save:(Image fromFile:'bitmaps/SBrowser.xbm') onFile:'test.form'
+    "
 
     "Modified: 27.2.1997 / 12:46:00 / cg"
 ! !
@@ -190,7 +184,7 @@
 !ST80FormReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ST80FormReader.st,v 1.23 2003-09-01 14:47:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ST80FormReader.st,v 1.24 2003-09-12 11:40:49 cg Exp $'
 ! !
 
 ST80FormReader initialize!