--- a/ReadStream.st	Wed Aug 04 09:58:10 1999 +0200
+++ b/ReadStream.st	Wed Aug 04 16:10:22 1999 +0200
@@ -228,7 +228,7 @@
     ret := self next.
     ret notNil ifTrue:[
         ((ret < 0) or:[ret > 255]) ifTrue:[
-            self error:'oops - not a byte value in stream'.
+            self error:'oops - not a byte value in stream' mayProceed:true.
             ^ nil
         ]
     ].
@@ -641,5 +641,5 @@
 !ReadStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ReadStream.st,v 1.38 1999-06-04 23:07:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ReadStream.st,v 1.39 1999-08-04 14:10:22 cg Exp $'
 ! !