#14 failure with vfs::zip

[Mats Bengtsson]

When trying to mount a zip archive using vfs::zip, which
uses Memchan on ordinary installations, I just gets junk
when trying to read content.
This is Memchan 2.2.1 on linux and Tcl/Tk 8.4.11 the
ActiveState distro.
However, if I instead uses tclkit-linux-x86.upx.bin (8.4.11)
which doesn't use Memchan, but its own internal version,
rechan, it works. This leads me to belive that problems are to
be found in Memchan. The following script shows the
problem together with the attached jisp file, which actually is
a plain zip archive. In both cases I have vfs::zip 1.0.

package require vfs::zip
package require Memchan
cd [file dirname [tk_getOpenFile -title "Pick jisp file"]]
set arch gadu-gadu.jisp
set name [file rootname $arch]
set fdzip [vfs::zip::Mount $arch $arch]
cd $arch
glob *
cd $name
glob *
set fd [open icondef.xml]
# This should be proper xml:
puts [read $fd]

[Mats Bengtsson]

zip archive for testing