summaryrefslogtreecommitdiffstats
path: root/generic/tclEnsemble.c
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclEnsemble.c')
-rw-r--r--generic/tclEnsemble.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclEnsemble.c b/generic/tclEnsemble.c
index f108030..e37ad1a 100644
--- a/generic/tclEnsemble.c
+++ b/generic/tclEnsemble.c
@@ -1901,7 +1901,8 @@ NsEnsembleImplementationCmdNR(
if (ni > 0) {
//fprintf(stdout, "COVER\n"); fflush(stdout);
iPtr->ensembleRewrite.numRemovedObjs += ni;
- iPtr->ensembleRewrite.numInsertedObjs += prefixObjc-1;
+ iPtr->ensembleRewrite.numInsertedObjs
+ = prefixObjc + ensemblePtr->numParameters;
} else {
iPtr->ensembleRewrite.numInsertedObjs += prefixObjc-2;
}