Using ZIP file system

Hi,

Do I use the ZIP file system correctly? I do the following:

-=-=-=-
zipFile := FileLocator temp / 'file.zip'.
zipFileSystem := (FileSystem zip: zipFile) open.
(zipFileSystem root / 'dir1') createDirectory.
(zipFileSystem root / 'dir1' / 'file.txt')
        writeStreamDo: [ :stream | stream << 'Hello World!' ].
zipFileSystem close.
zipFile contents.
-=-=-=-

And zipFileSystem close produces an error.
 


Thanks for any advice.
Juraj