small zip fix

diff --git a/library/zipvfs.tcl b/library/zipvfs.tcl
index 13a98d30e4d0893dd61f8e051c198709989382bd..80e48d9724d567477586e4063eb85359b1d0ecc8 100644 (file)
--- a/library/zipvfs.tcl
+++ b/library/zipvfs.tcl
@@ -308,7 +308,7 @@ proc zip::Data {fd arr {varPtr ""} {verify 0}} {
 
     if { $sb(method) != 0 } {
        if { [catch {
-           set data [vfs::zip -mode decompress -nowrap 1 $data]
+           set data [vfs::zip -mode decompress -nowrap 1 -- $data]
        } err] } {
            ::vfs::log "$sb(name): inflate error: $err"
            binary scan $data H* x