--- a/Stream.st	Thu Jun 15 09:58:00 2017 +0200
+++ b/Stream.st	Thu Jun 15 09:58:40 2017 +0200
@@ -239,7 +239,6 @@
     self nextPut:(Character nl)
 ! !
 
-
 !Stream methodsFor:'accessing'!
 
 contents
@@ -4116,6 +4115,24 @@
     "
 !
 
+next:n putAll:aCollection startingAt:pos1
+    "append n elements starting at pos1 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-07-1996 / 10:31:36 / cg"
+    "Modified (comment): / 15-06-2017 / 02:30:52 / cg"
+!
+
 nextPut:anObject
     "put the argument, anObject onto the receiver
      - we do not know here how to do it, it must be redefined in subclass"