--- a/Stream.st	Wed Dec 13 11:23:44 1995 +0100
+++ b/Stream.st	Wed Dec 13 11:27:04 1995 +0100
@@ -11,10 +11,10 @@
 "
 
 Object subclass:#Stream
-	 instanceVariableNames:''
-	 classVariableNames:'StreamErrorSignal PositionErrorSignal'
-	 poolDictionaries:''
-	 category:'Streams'
+	instanceVariableNames:''
+	classVariableNames:'StreamErrorSignal PositionErrorSignal'
+	poolDictionaries:''
+	category:'Streams'
 !
 
 !Stream class methodsFor:'documentation'!
@@ -836,6 +836,16 @@
     "
 !
 
+nextPutLine:aCollection
+    "put all elements of the argument, aCollection onto the receiver,
+     and append a cr. This is only useful with character streams in textMode."
+
+    self nextPutAll:aCollection.
+    self cr.
+
+    "Created: 13.12.1995 / 10:49:17 / cg"
+!
+
 print:anObject
     "append a printed representation of anObject to the receiver.
      Same as anObject printOn:self; For ST-80 compatibility."
@@ -889,6 +899,6 @@
 !Stream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.29 1995-12-07 21:38:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.30 1995-12-13 10:27:04 cg Exp $'
 ! !
 Stream initialize!