--- a/SunRasterReader.st	Sat Dec 11 02:31:47 1993 +0100
+++ b/SunRasterReader.st	Sat Dec 11 02:33:46 1993 +0100
@@ -24,7 +24,7 @@
 
 this class provides methods for loading Sun Raster file images
 
-$Header: /cvs/stx/stx/libview2/SunRasterReader.st,v 1.3 1993-10-13 00:46:33 claus Exp $
+$Header: /cvs/stx/stx/libview2/SunRasterReader.st,v 1.4 1993-12-11 01:33:32 claus Exp $
 written Summer 91 by claus
 '!
 
@@ -35,7 +35,7 @@
 
     |inStream|
 
-    inStream := FileStream readonlyFileNamed:aFileName.
+    inStream := self streamReadingFile:aFileName.
     inStream isNil ifTrue:[^ false].
 
     "try sun raster"
@@ -80,11 +80,8 @@
       rMap gMap bMap mapLen
       bits a b c index|
 
-    inStream := FileStream readonlyFileNamed:aFilename.
-    inStream isNil ifTrue:[
-        'open error' printNewline. 
-        ^ nil
-    ].
+    inStream := self class streamReadingFile:aFilename.
+    inStream isNil ifTrue:[^ nil].
 
     inStream binary.
 
@@ -179,13 +176,8 @@
 fromSunIconFile: aFilename 
     | index word |
 
-    inStream := FileStream readonlyFileNamed:aFilename.
-    inStream isNil ifTrue:[
-        'open error' printNewline. 
-        ^ nil
-    ].
-
-    inStream text.
+    inStream := self class streamReadingFile:aFilename.
+    inStream isNil ifTrue:[^ nil].
 
     (inStream skipToAll: 'idth') isNil ifTrue: [
         'Not a Sun Raster/Icon File' printNewline.