--- /home/danilo/Downloads/tcllib-1.18/modules/zip/decode.tcl	2017-02-15 21:23:57.000000000 +0800
+++ decode.tcl	2017-04-29 01:11:24.302642771 +0800
@@ -231,7 +231,11 @@
 	deflate {
 	    go     $fd(fileloc)
 	    nbytes $fd(csize)
-	    return [zip -mode decompress -nowrap 1 -- [getval]]
+	    if {$::zipfile::decode::native_zip_functs} {
+	      return [zlib inflate [getval]]
+	    } else {
+	      return [zip -mode decompress -nowrap 1 -- [getval]]
+	    }
 	}
 	default {
 	    Error "Unable to handle file \"$src\" compressed with method \"$fd(cm)\"" \
