--- a/XBMReader.st	Wed Aug 19 15:38:41 1998 +0200
+++ b/XBMReader.st	Thu Aug 20 00:40:06 1998 +0200
@@ -171,7 +171,10 @@
         ^ self fileFormatError:'format error (expected width)'.
     ].
     lineString := lineString copyFrom:(index + 1).
-    width := Number readFromString:lineString.
+    width := Number readFromString:lineString onError:nil.
+    width isNil ifTrue:[
+	^ self fileFormatError:'format error (expected width)'.
+    ].
 
     lineString := aStream nextLine.
     index := lineString indexOf:(Character space).
@@ -183,7 +186,10 @@
         ^ self fileFormatError:'format error (expected height)'.
     ].
     lineString := lineString copyFrom:(index + 1).
-    height := Number readFromString:lineString.
+    height := Number readFromString:lineString onError:nil.
+    height isNil ifTrue:[
+	^ self fileFormatError:'format error (expected height)'.
+    ].
 
     bytesPerRow := width // 8.
     ((width \\ 8) ~~ 0) ifTrue:[
@@ -318,6 +324,6 @@
 !XBMReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/XBMReader.st,v 1.39 1998-08-17 08:17:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/XBMReader.st,v 1.40 1998-08-19 22:40:06 cg Exp $'
 ! !
 XBMReader initialize!