--- a/WriteStream.st	Wed Aug 02 13:09:52 2017 +0200
+++ b/WriteStream.st	Wed Aug 02 13:10:18 2017 +0200
@@ -243,6 +243,17 @@
      s contents
     "
 
+    "
+     |s|
+
+     s := 'testFile' asFilename writeStream.
+     s nextPutAll:'123456'.
+     s truncateTo:4.
+     s nextPutAll:'abc'.
+     s close.
+     'testFile' asFilename contents
+    "
+
     "Created: / 02-08-2017 / 09:24:58 / cg"
 ! !