diff options
Diffstat (limited to 'generic/tclEnsemble.c')
| -rw-r--r-- | generic/tclEnsemble.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/generic/tclEnsemble.c b/generic/tclEnsemble.c index 813e056..24e0f8b 100644 --- a/generic/tclEnsemble.c +++ b/generic/tclEnsemble.c @@ -3198,9 +3198,8 @@ CompileToInvokedCommand( * Do the replacing dispatch. */ - TclEmitInstInt4(INST_INVOKE_REPLACE, parsePtr->numWords, envPtr); + TclEmitInstInt4(INST_INVOKE_REPLACE, parsePtr->numWords+1, envPtr); TclEmitInt1(numWords+1, envPtr); - TclAdjustStackDepth(-1, envPtr); /* Correction to stack depth calcs. */ } /* |