--- a/PositionableStream.st	Mon Jun 03 20:39:38 2013 +0200
+++ b/PositionableStream.st	Mon Jun 03 20:39:54 2013 +0200
@@ -556,7 +556,7 @@
     |end result|
 
     end := position + count.
-    (end + 1) > readLimit ifTrue:[
+    end >= readLimit ifTrue:[
         end := readLimit.
     ].
 
@@ -633,7 +633,7 @@
 atEnd
     "return true, if the read-position is at the end"
 
-    ^ (position + 1) > readLimit
+    ^ position >= readLimit
 !
 
 isEmpty
@@ -659,11 +659,11 @@
 !PositionableStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.158 2013-06-03 18:33:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.159 2013-06-03 18:39:54 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.158 2013-06-03 18:33:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.159 2013-06-03 18:39:54 cg Exp $'
 ! !