--- a/ReadWriteStream.st	Thu Dec 15 13:54:31 2016 +0100
+++ b/ReadWriteStream.st	Thu Dec 15 13:55:00 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -102,16 +100,6 @@
         ].
     ].
     ^ super next:count
-!
-
-peek
-    "return the element to be read next without advancing read position.
-     If there are no more elements, nil is returned."
-
-    (position >= readLimit) ifTrue:[^ self pastEndRead].
-    ^ collection at:(position+1)
-
-    "Modified: 5.2.1996 / 21:57:47 / stefan"
 ! !
 
 !ReadWriteStream methodsFor:'accessing'!
@@ -198,6 +186,18 @@
     ^ (readLimit ? 0) max:(position ? 0).
 ! !
 
+!ReadWriteStream methodsFor:'reading'!
+
+peek
+    "return the element to be read next without advancing read position.
+     If there are no more elements, nil is returned."
+
+    (position >= readLimit) ifTrue:[^ self pastEndRead].
+    ^ collection at:(position+1)
+
+    "Modified: 5.2.1996 / 21:57:47 / stefan"
+! !
+
 !ReadWriteStream class methodsFor:'documentation'!
 
 version