this code

    | stream gzstream |
    stream := RWBinaryOrTextStream on: ByteArray new.
    gzstream := GZipWriteStream on: stream.
    gzstream nextPutAll: #[1 2 3 4].
    gzstream close.
    stream reset.
    ^ stream contents.

versus

    | stream gzstream |
    stream := ByteArray new writeStream.
    gzstream := GZipWriteStream on: stream.
    gzstream nextPutAll: #[1 2 3 4].
    gzstream close.
    ^ stream contents.

Because we love complexity so much?
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20140711/c2865ae2/attachment.htm