--- a/Stream.st	Wed Oct 23 20:05:35 2019 +0200
+++ b/Stream.st	Thu Oct 24 10:57:54 2019 +0200
@@ -3291,7 +3291,7 @@
     |answerStream element|
 
     answerStream := self contentsSpecies writeStream.
-    [(element := self nextOrNil) isNil or:[self atEnd]] whileFalse:[
+    [(element := self nextOrNil) isNil and:[self atEnd]] whileFalse:[
         answerStream nextPut:element.
         (element = anObject) ifTrue: [
             ^ answerStream contents
@@ -3318,7 +3318,7 @@
 
     "Modified: / 17-05-1996 / 08:51:40 / cg"
     "Modified: / 10-01-2018 / 18:30:17 / stefan"
-    "Modified: / 22-10-2019 / 18:52:28 / Stefan Vogel"
+    "Modified: / 24-10-2019 / 10:55:35 / Stefan Vogel"
 !
 
 throughAll:aCollection