From bb0ace6fa4f73925836fe0904e8e67d183486468 Mon Sep 17 00:00:00 2001
From: Vince Darley <vincentdarley@sourceforge.net>
Date: Fri, 2 Jul 2004 08:58:11 +0000
Subject: [PATCH] small zip fix

---
 library/zipvfs.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/library/zipvfs.tcl b/library/zipvfs.tcl
index 13a98d3..80e48d9 100644
--- 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
-- 
2.23.0