While browsing the system I saw that the following method raised a temp read before written...
It did not jump to my eyes. Working on something else....
PositionableStream>>upTo: anObject
�� �� "Answer a subcollection from the current access position to the
�� �� occurrence (if any, but not inclusive) of anObject in the receiver. If
�� �� anObject is not in the collection, answer the entire rest of the receiver."
�� �� | newStream element |
�� �� newStream := (collection species new: 100) writeStream.
�� �� [self atEnd or: [(element := self next) = anObject]]
�� �� �� �� whileFalse: [newStream nextPut: element].
�� �� ^newStream contents