From a1f009072721df777e34fe4d81b72f2d20d35223 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Tue, 5 Sep 2023 08:30:05 +0000
Subject: Fix [https://core.tcl-lang.org/tclvfs/tktview/60cacfbcb9|60cacfbcb9]:
 Segmentation Fault at interpreter exit when tclvfs loaded

---
 generic/tclBasic.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index da8870d..26530c3 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -1232,11 +1232,11 @@ Tcl_DeleteAssocData(
 	return;
     }
     dPtr = (AssocData *)Tcl_GetHashValue(hPtr);
+    Tcl_DeleteHashEntry(hPtr);
     if (dPtr->proc != NULL) {
 	dPtr->proc(dPtr->clientData, interp);
     }
     ckfree(dPtr);
-    Tcl_DeleteHashEntry(hPtr);
 }
 
 /*
-- 
cgit v0.12