
from tcl8.3.2/generic/tclParse.c:

1149a1150
>     Interp *iPtr = (Interp *) interp;
1191a1193
> 		iPtr->numLevels++;
1193a1196
> 		iPtr->numLevels--;
