3610404 When we let go of commandPtr in TclEvalObjvInternal, NULL out the

variable so we don't mistakenly try to use the value later after we freed it.

1 files changed, 1 insertions, 0 deletions

diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index cfb5c43..d3b5490 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -3652,6 +3652,7 @@ TclEvalObjvInternal(
 	    checkTraces = 0;
 	    if (commandPtr) {
 		Tcl_DecrRefCount(commandPtr);
+		commandPtr = NULL;
 	    }
 	    goto reparseBecauseOfTraces;
 	}