From d5396e3590b3fbcab61454db55688bd81fe1a59d Mon Sep 17 00:00:00 2001
From: apnadkarni <apnmbx-wits@yahoo.com>
Date: Fri, 20 Oct 2023 17:01:48 +0000
Subject: Potential fix

---
 generic/tclZipfs.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/generic/tclZipfs.c b/generic/tclZipfs.c
index 6ef921a..c7a194a 100644
--- a/generic/tclZipfs.c
+++ b/generic/tclZipfs.c
@@ -6287,6 +6287,9 @@ ZipfsAppHookFindTclInit(
 
 void TclZipfsFinalize(void)
 {
+    if (!TclInExit())
+	return;
+
     /*
      * Finalization steps:
      * For every mounted archive, if it no longer has any open handles
-- 
cgit v0.12