--- a/ReadWriteStream.st	Mon Feb 19 16:05:10 1996 +0100
+++ b/ReadWriteStream.st	Mon Feb 19 16:07:27 1996 +0100
@@ -10,11 +10,13 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:2.10.8 on 6-feb-1996 at 15:31:35'                    !
+
 WriteStream subclass:#ReadWriteStream
-	 instanceVariableNames:''
-	 classVariableNames:''
-	 poolDictionaries:''
-	 category:'Streams'
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Streams'
 !
 
 !ReadWriteStream class methodsFor:'documentation'!
@@ -56,18 +58,22 @@
 
     |element|
 
-    (position > readLimit) ifTrue:[^ nil].
+    (position > readLimit) ifTrue:[^ self pastEnd].
     element := collection at:position.
     position := position + 1.
     ^ element
+
+    "Modified: 5.2.1996 / 21:57:40 / stefan"
 !
 
 peek
     "return the element to be read next without advancing read position.
      If there are no more elements, nil is returned."
 
-    (position > readLimit) ifTrue:[^ nil].
+    (position > readLimit) ifTrue:[^ self pastEnd].
     ^ collection at:position
+
+    "Modified: 5.2.1996 / 21:57:47 / stefan"
 ! !
 
 !ReadWriteStream methodsFor:'converting'!
@@ -95,5 +101,5 @@
 !ReadWriteStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ReadWriteStream.st,v 1.15 1995-12-07 21:38:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ReadWriteStream.st,v 1.16 1996-02-19 15:07:27 stefan Exp $'
 ! !