? 219362.patch
? singleWord.patch4
? generic/tclCompile.c.NEW
? generic/tclExecute.c.NEW
? generic/tclCompExpr.c.NEW
? generic/tclExecute.c.ORIG
? generic/tclVar.c.ORIG
? generic/tclVar.test
? tests/trace.test.ORIG
? unix/autoMkindex.tcl
? unix/stpyerC7
Index: generic/tclBasic.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclBasic.c,v
retrieving revision 1.42
diff -u -r1.42 tclBasic.c
--- generic/tclBasic.c	2001/11/21 17:17:17	1.42
+++ generic/tclBasic.c	2001/12/10 22:11:28
@@ -3456,7 +3456,8 @@
 		code = TCL_ERROR;
 	    } else {
 		iPtr->numLevels++;    
-		code = TclEvalObjvInternal(interp, objectsUsed, objv, p, bytesLeft, 0);
+		code = TclEvalObjvInternal(interp, objectsUsed, objv, p, 
+		        parse.commandStart + parse.commandSize - p, 0);
 		iPtr->numLevels--;
 	    }
 	    if (code != TCL_OK) {
