--- a/XBMReader.st	Sat Apr 19 17:24:51 1997 +0200
+++ b/XBMReader.st	Mon Apr 21 17:11:47 1997 +0200
@@ -84,31 +84,37 @@
     inStream := self streamReadingFile:aFileName.
     inStream isNil ifTrue:[^ false].
 
-    line := inStream nextLine.
+    Stream readErrorSignal handle:[:ex |
+        line := nil.
+    ] do:[
+        line := inStream nextLine.
+    ].
     line isNil ifTrue:[
-	inStream close.
-	^ false
+        inStream close.
+        ^ false
     ].
     [line startsWith:'#'] whileFalse:[
-	line := inStream nextLine.
-	line isNil ifTrue:[
-	    inStream close.
-	    ^ false
-	]
+        line := inStream nextLine.
+        line isNil ifTrue:[
+            inStream close.
+            ^ false
+        ]
     ].
     index1 := line indexOf:(Character space).
     index2 := line indexOf:(Character space) startingAt:(index1 + 1).
     (index2 == 0) ifTrue:[
-	inStream close.
-	^ false
+        inStream close.
+        ^ false
     ].
     keyword := line copyFrom:index1 to:(index2 - 1).
     (keyword endsWith:'_width') ifFalse:[
-	inStream close.
-	^ false
+        inStream close.
+        ^ false
     ].
     inStream close.
     ^ true
+
+    "Modified: 21.4.1997 / 17:10:52 / cg"
 ! !
 
 !XBMReader methodsFor:'reading from file'!
@@ -305,6 +311,6 @@
 !XBMReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/XBMReader.st,v 1.33 1997-04-11 14:51:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/XBMReader.st,v 1.34 1997-04-21 15:11:36 cg Exp $'
 ! !
 XBMReader initialize!