From 95563b40a7e7c0078ccc04dd78b4058ad655f9fa Mon Sep 17 00:00:00 2001
From: mig <mig>
Date: Mon, 6 Feb 2012 17:10:49 +0000
Subject: fix for [Bug 3484621], take 3

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

diff --git a/generic/tclTrace.c b/generic/tclTrace.c
index f1cc505..3ea182f 100644
--- a/generic/tclTrace.c
+++ b/generic/tclTrace.c
@@ -1122,16 +1122,15 @@ Tcl_TraceCommand(
     tracePtr->refCount = 1;
     cmdPtr->tracePtr = tracePtr;
     if (tracePtr->flags & TCL_TRACE_ANY_EXEC) {
-	cmdPtr->flags |= CMD_HAS_EXEC_TRACES;
-
 	/*
 	 * Bug 3484621: up the interp's epoch if this is a BC'ed command
 	 */
 	
-	if (cmdPtr->compileProc != NULL) {
+	if ((cmdPtr->compileProc != NULL) && !(cmdPtr->flags & CMD_HAS_EXEC_TRACES)){
 	    Interp *iPtr = (Interp *) interp;
 	    iPtr->compileEpoch++;
 	}
+	cmdPtr->flags |= CMD_HAS_EXEC_TRACES;
     }
 
     
-- 
cgit v0.12