--- a/ReadWriteStream.st	Fri Mar 05 20:42:02 2004 +0100
+++ b/ReadWriteStream.st	Fri Mar 05 21:00:26 2004 +0100
@@ -84,7 +84,7 @@
     "return the next element; advance read pointer.
      return nil, if there is no next element"
 
-    ^ self next
+    ^ self next asInteger
 !
 
 peek
@@ -154,5 +154,5 @@
 !ReadWriteStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ReadWriteStream.st,v 1.22 2003-03-17 16:45:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ReadWriteStream.st,v 1.23 2004-03-05 20:00:04 cg Exp $'
 ! !