--- a/ConsStream.st	Fri Oct 01 09:36:02 2004 +0200
+++ b/ConsStream.st	Fri Oct 01 09:52:49 2004 +0200
@@ -96,7 +96,7 @@
     |rslt|
 
     list isNil ifTrue:[
-        ^ self pastEnd
+        ^ self pastEndRead
     ].
     rslt := list car.
     list := list cdr.
@@ -106,5 +106,5 @@
 !ConsStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/ConsStream.st,v 1.1 2003-12-09 14:26:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/ConsStream.st,v 1.2 2004-10-01 07:52:49 cg Exp $'
 ! !