--- a/ReadStr.st	Wed Mar 05 17:10:28 1997 +0100
+++ b/ReadStr.st	Thu Mar 06 01:32:44 1997 +0100
@@ -216,13 +216,16 @@
     |ret|
 
     ret := self next.
-    ((ret < 0) or:[ret > 255]) ifTrue:[
-        self error:'oops - not a byte value in stream'.
-        ^ nil
+    ret notNil ifTrue:[
+        ((ret < 0) or:[ret > 255]) ifTrue:[
+            self error:'oops - not a byte value in stream'.
+            ^ nil
+        ]
     ].
     ^ ret
 
     "Created: 13.9.1996 / 18:10:38 / cg"
+    "Modified: 5.3.1997 / 21:16:12 / cg"
 !
 
 nextDecimalInteger
@@ -579,5 +582,5 @@
 !ReadStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ReadStr.st,v 1.33 1997-01-14 14:14:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ReadStr.st,v 1.34 1997-03-06 00:32:44 cg Exp $'
 ! !

--- a/ReadStream.st	Wed Mar 05 17:10:28 1997 +0100
+++ b/ReadStream.st	Thu Mar 06 01:32:44 1997 +0100
@@ -216,13 +216,16 @@
     |ret|
 
     ret := self next.
-    ((ret < 0) or:[ret > 255]) ifTrue:[
-        self error:'oops - not a byte value in stream'.
-        ^ nil
+    ret notNil ifTrue:[
+        ((ret < 0) or:[ret > 255]) ifTrue:[
+            self error:'oops - not a byte value in stream'.
+            ^ nil
+        ]
     ].
     ^ ret
 
     "Created: 13.9.1996 / 18:10:38 / cg"
+    "Modified: 5.3.1997 / 21:16:12 / cg"
 !
 
 nextDecimalInteger
@@ -579,5 +582,5 @@
 !ReadStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ReadStream.st,v 1.33 1997-01-14 14:14:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ReadStream.st,v 1.34 1997-03-06 00:32:44 cg Exp $'
 ! !