From 598a2d7dd6d3830c59de31a4b4af8ccf1991fdc4 Mon Sep 17 00:00:00 2001
From: mig <mig>
Date: Sun, 8 May 2011 13:00:24 +0000
Subject: is this a proper fix? Or is it invalidating too much?

---
 generic/tclInt.h | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/generic/tclInt.h b/generic/tclInt.h
index f2fd0b8..d196d96 100644
--- a/generic/tclInt.h
+++ b/generic/tclInt.h
@@ -3757,6 +3757,9 @@ MODULE_SCOPE void	TclDbInitNewObj(Tcl_Obj *objPtr, CONST char *file,
 #define TclInvalidateNsCmdLookup(nsPtr) \
     if ((nsPtr)->numExportPatterns) { \
 	(nsPtr)->exportLookupEpoch++; \
+    }				      \
+    if ((nsPtr)->commandPathLength) { \
+	(nsPtr)->cmdRefEpoch++;	      \
     }
 
 /*
-- 
cgit v0.12