diff options
| -rw-r--r-- | generic/tclBasic.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 952292f..9897286 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -2544,7 +2544,7 @@ Tcl_EvalObj(interp, objPtr) */ numSrcChars = codePtr->numSrcChars; - if (numSrcChars > 0) { + if ((numSrcChars > 0) || (codePtr->flags & TCL_BYTECODE_PRECOMPILED)) { /* * Increment the code's ref count while it is being executed. If * afterwards no references to it remain, free the code. |