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
