--- a/PositionableStream.st	Mon Jan 12 23:03:54 2009 +0100
+++ b/PositionableStream.st	Tue Jan 13 12:52:00 2009 +0100
@@ -356,9 +356,11 @@
 !
 
 setToEnd
-    "set the read position to the end of the collection"
+    "set the read position to the end of the collection.
+     #next will return EOF, #nextPut: will append to the stream.
+     (same Behavior as FileStream."
 
-    position := readLimit - 1 + ZeroPosition
+    position := readLimit + ZeroPosition
 !
 
 skip:numberToSkip
@@ -649,7 +651,7 @@
 !PositionableStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.151 2007-06-04 20:10:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.152 2009-01-13 11:52:00 stefan Exp $'
 ! !
 
 PositionableStream initialize!