--- a/XBMReader.st	Sat Dec 11 02:33:46 1993 +0100
+++ b/XBMReader.st	Sat Dec 11 02:35:43 1993 +0100
@@ -26,7 +26,7 @@
 These images can (for example) be created using the bitmap editor supplied
 with X. Only monochrome images can be represented in thos format.
 
-$Header: /cvs/stx/stx/libview2/XBMReader.st,v 1.4 1993-10-13 02:44:41 claus Exp $
+$Header: /cvs/stx/stx/libview2/XBMReader.st,v 1.5 1993-12-11 01:35:43 claus Exp $
 written Sep 92 by claus
 '!
 
@@ -94,7 +94,7 @@
 
     |line inStream index1 index2 keyword|
 
-    inStream := FileStream readonlyFileNamed:aFileName.
+    inStream := self streamReadingFile:aFileName.
     inStream isNil ifTrue:[^ false].
 
     line := inStream nextLine.
@@ -135,11 +135,8 @@
      val      "{ Class: SmallInteger }"
      reverseBits|
 
-    inStream := FileStream readonlyFileNamed:aFileName.
-    inStream isNil ifTrue:[
-        'open error' printNewline.
-        ^ nil
-    ].
+    inStream := self class streamReadingFile:aFileName.
+    inStream isNil ifTrue:[^ nil].
 
     line := inStream nextLine.
     line isNil ifTrue:[