--- a/WriteStream.st	Sat Jul 06 08:41:24 2013 +0200
+++ b/WriteStream.st	Sat Jul 06 15:30:16 2013 +0200
@@ -483,6 +483,23 @@
     "Modified: / 04-09-2011 / 20:03:32 / cg"
 !
 
+nextPutAll:n from:aCollection startingAt:pos1
+    "append some elements of the argument, aCollection to the stream."
+
+    ^ self nextPutAll:aCollection startingAt:pos1 to:pos1+n-1
+
+    "
+     |s|
+
+     s := '' writeStream.
+     s nextPutAll:'hello '.
+     s next:5 putAll:'1234world012345' startingAt:5.
+     s contents   
+    "
+
+    "Modified: 12.7.1996 / 10:31:36 / cg"
+!
+
 nextPutAll:aCollection startingAt:pos1 to:pos2
     "append some elements of the argument, aCollection to the stream.
      Redefined to avoid count grows of the underlying collection -
@@ -632,10 +649,10 @@
 !WriteStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.78 2013-06-03 18:39:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.79 2013-07-06 13:30:16 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.78 2013-06-03 18:39:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.79 2013-07-06 13:30:16 cg Exp $'
 ! !