--- a/Stream.st	Fri Sep 07 13:46:06 2012 +0100
+++ b/Stream.st	Fri Sep 07 17:24:32 2012 +0100
@@ -194,8 +194,6 @@
     ^ ChunkSeparator
 ! !
 
-
-
 !Stream methodsFor:'accessing'!
 
 contents
@@ -1919,6 +1917,14 @@
     "Created: / 29.5.1998 / 16:57:48 / cg"
 !
 
+size
+    "return the number of elements in the streamed collection."
+
+    self subclassResponsibility
+
+    "Created: / 05-08-2012 / 18:38:12 / cg"
+!
+
 terminalType
     ^ 'dump'
 ! !
@@ -2555,7 +2561,6 @@
     "Modified: / 19.5.1998 / 17:26:25 / cg"
 ! !
 
-
 !Stream methodsFor:'testing'!
 
 atEnd
@@ -2866,6 +2871,20 @@
     "Modified: 11.7.1996 / 10:00:32 / cg"
 !
 
+nextPutAllLines:aCollectionOfStrings
+    "put all elements of the argument, aCollection as individual lines
+     onto the receiver, append a cr (carriage return) after each. 
+     This is only useful with character streams in textMode,
+     and only allowed, if the receiver supports writing."
+
+    aCollectionOfStrings do:[:eachLine |
+        self nextPutLine:eachLine.
+    ].
+
+    "Modified: / 08-11-1996 / 23:53:41 / cg"
+    "Created: / 27-07-2012 / 09:26:09 / cg"
+!
+
 nextPutAllText:aText
     "normal streams can not handle text/emphasis, so convert aText to the string"
 
@@ -3230,18 +3249,15 @@
 !Stream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.190 2012/04/05 09:58:52 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.192 2012/08/05 16:38:41 cg Exp $'
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libbasic/Stream.st,v 1.190 2012/04/05 09:58:52 stefan Exp §'
+    ^ '§Header: /cvs/stx/stx/libbasic/Stream.st,v 1.192 2012/08/05 16:38:41 cg Exp §'
 !
 
 version_SVN
-    ^ '$Id: Stream.st 10804 2012-04-13 13:18:13Z vranyj1 $'
+    ^ '$Id: Stream.st 10844 2012-09-07 16:24:32Z vranyj1 $'
 ! !
 
 Stream initialize!
-
-
-