| in out size bufSize buffer |
in := FileStream oldFileNamed: 'hmm.image'.
out := FileStream fileNamed: 'test'.
size := in size.
[size > 0] whileTrue: [
bufSize := size min: 4096.
buffer := in next: bufSize.
out nextPutAll: buffer.
size := size - bufSize].
out close.
in close