From 1834758e0b748ea3a3a3ccba35a181a07413d2c7 Mon Sep 17 00:00:00 2001
From: mig <mig>
Date: Mon, 6 Feb 2012 16:53:10 +0000
Subject: fix for [Bug 3484621], take 2

---
 generic/tclTrace.c | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/generic/tclTrace.c b/generic/tclTrace.c
index ad81c58..f1cc505 100644
--- a/generic/tclTrace.c
+++ b/generic/tclTrace.c
@@ -1123,16 +1123,17 @@ Tcl_TraceCommand(
     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) {
-	Interp *iPtr = (Interp *) interp;
-	iPtr->compileEpoch++;
+	/*
+	 * Bug 3484621: up the interp's epoch if this is a BC'ed command
+	 */
+	
+	if (cmdPtr->compileProc != NULL) {
+	    Interp *iPtr = (Interp *) interp;
+	    iPtr->compileEpoch++;
+	}
     }
+
     
     return TCL_OK;
 }
-- 
cgit v0.12