--- a/BaseNCoder.st	Mon Mar 21 04:40:24 2016 +0000
+++ b/BaseNCoder.st	Tue Mar 22 17:01:49 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2002 by eXept Software AG
               All Rights Reserved
@@ -278,6 +276,17 @@
     ^ off - offset
 !
 
+nextPutAll:aCollection startingAt:first to:last
+    "append the elements with index from first to last
+     of the argument, aCollection onto the receiver.
+     This is only allowed, if the receiver supports writing."
+
+    aCollection from:first to:last do:[:element |
+        self nextPut:element
+    ].
+    ^ aCollection
+!
+
 stringUpToEnd
     "return a collection of the elements up-to the end"
 
@@ -354,11 +363,17 @@
     "encode aByte on the output stream"
 
     ^ self subclassResponsibility.
+!
+
+nextPutByte:aByte
+    "encode aByte on the output stream"
+
+    ^ self nextPut:aByte.
 ! !
 
 !BaseNCoder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/BaseNCoder.st,v 1.5 2015-05-07 20:36:34 cg Exp $'
+    ^ '$Header$'
 ! !