--- a/PositionableStream.st	Mon Jun 04 21:40:07 2007 +0200
+++ b/PositionableStream.st	Mon Jun 04 22:10:34 2007 +0200
@@ -196,6 +196,22 @@
     "set the writeLimit; thats the position after which writing is prohibited"
 
     writeLimit := aNumber
+
+    "
+     |s|
+     s := WriteStream on:String new.
+     s nextPutAll:'hello world'.
+     s contents.
+
+     |s|
+     s := WriteStream on:String new.
+     s writeLimit:5.
+     s nextPutAll:'hello world'.
+     s contents.
+
+    "
+
+    "Modified: / 04-06-2007 / 17:21:55 / cg"
 ! !
 
 !PositionableStream methodsFor:'positioning'!
@@ -633,7 +649,7 @@
 !PositionableStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.150 2007-05-30 14:14:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.151 2007-06-04 20:10:34 cg Exp $'
 ! !
 
 PositionableStream initialize!