1 files changed, 9 insertions, 8 deletions
diff --git a/generic/tclTrace.c b/generic/tclTrace.c
index c1cae76..c79b9ff 100644
--- a/generic/tclTrace.c
+++ b/generic/tclTrace.c
@@ -1125,16 +1125,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;
 }