--- a/Stream.st	Mon Sep 16 17:29:47 2019 +0200
+++ b/Stream.st	Mon Sep 16 17:38:41 2019 +0200
@@ -4369,6 +4369,72 @@
     "Modified: 8.11.1996 / 23:53:41 / cg"
 !
 
+nextPutLine:aCollection with:arg
+    "put all elements of the argument, aCollection onto the receiver,
+     and append a cr (carriage return). aCollection should contain characters.
+     This is only useful with character streams in textMode
+     and only allowed if the receiver supports writing."
+
+    self nextPutLine:(aCollection bindWith:arg).
+
+    "Created: 13.12.1995 / 10:49:17 / cg"
+    "Modified: 8.11.1996 / 23:53:41 / cg"
+!
+
+nextPutLine:aCollection with:arg1 with:arg2
+    "put all elements of the argument, aCollection onto the receiver,
+     and append a cr (carriage return). aCollection should contain characters.
+     This is only useful with character streams in textMode
+     and only allowed if the receiver supports writing."
+
+    self nextPutLine:(aCollection bindWith:arg1 with:arg2).
+!
+
+nextPutLine:aCollection with:arg1 with:arg2 with:arg3
+    "put all elements of the argument, aCollection onto the receiver,
+     and append a cr (carriage return). aCollection should contain characters.
+     This is only useful with character streams in textMode
+     and only allowed if the receiver supports writing."
+
+    self nextPutLine:(aCollection bindWith:arg1 with:arg2 with:arg3).
+!
+
+nextPutLine:aCollection with:arg1 with:arg2 with:arg3 with:arg4
+    "put all elements of the argument, aCollection onto the receiver,
+     and append a cr (carriage return). aCollection should contain characters.
+     This is only useful with character streams in textMode
+     and only allowed if the receiver supports writing."
+
+    self nextPutLine:(aCollection bindWith:arg1 with:arg2 with:arg3 with:arg4).
+!
+
+nextPutLine:aCollection with:arg1 with:arg2 with:arg3 with:arg4 with:arg5
+    "put all elements of the argument, aCollection onto the receiver,
+     and append a cr (carriage return). aCollection should contain characters.
+     This is only useful with character streams in textMode
+     and only allowed if the receiver supports writing."
+
+    self nextPutLine:(aCollection bindWith:arg1 with:arg2 with:arg3 with:arg4 with:arg5).
+!
+
+nextPutLine:aCollection with:arg1 with:arg2 with:arg3 with:arg4 with:arg5 with:arg6
+    "put all elements of the argument, aCollection onto the receiver,
+     and append a cr (carriage return). aCollection should contain characters.
+     This is only useful with character streams in textMode
+     and only allowed if the receiver supports writing."
+
+    self nextPutLine:(aCollection bindWith:arg1 with:arg2 with:arg3 with:arg4 with:arg5 with:arg6).
+!
+
+nextPutLine:aCollection withArguments:args
+    "put all elements of the argument, aCollection onto the receiver,
+     and append a cr (carriage return). aCollection should contain characters.
+     This is only useful with character streams in textMode
+     and only allowed if the receiver supports writing."
+
+    self nextPutLine:(aCollection bindWithArguments:args).
+!
+
 nextPutUnicode:aCharacter
     "normal streams can not handle multi-byte characters, so convert them to utf8"