From bd10908764185f1cd2156ea68f00bab232761aca Mon Sep 17 00:00:00 2001
From: apnadkarni <apnmbx-wits@yahoo.com>
Date: Fri, 29 Sep 2023 02:40:08 +0000
Subject: [PATCH] Minor edit

---
 generic/tclZipfs.c | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/generic/tclZipfs.c b/generic/tclZipfs.c
index 7616ad3f2d7..7b3911caf5f 100644
--- a/generic/tclZipfs.c
+++ b/generic/tclZipfs.c
@@ -14,6 +14,10 @@
  *   generic/tclZipfs.c file in the TIP430-enabled Tcl cores.
  *   compat/tclZipfs.c file in the tclconfig (TEA) file system, for pre-tip430
  *	projects.
+ *
+ * Helpful docs:
+ * https://pkware.cachefly.net/webdocs/APPNOTE/APPNOTE-6.3.9.TXT 
+ * https://libzip.org/specifications/appnote_iz.txt
  */
 
 #include "tclInt.h"
@@ -4839,8 +4843,7 @@ InitWritableChannel(
     /* TODO - why is the memset necessary? Not cheap for default maxWrite. */
     memset(info->ubuf, 0, info->maxWrite);
 
-    info->isEncrypted = z->isEncrypted;
-    if (info->isEncrypted) {
+    if (z->isEncrypted) {
 	assert(z->numCompressedBytes >= 12); /* caller should have checked*/
 	if (DecodeCryptHeader(
 		interp, z, info->keys, z->zipFilePtr->data + z->offset) !=