Tcl Source Code

Artifact df38bb8b9502454315c2d88ac7d89ef481836c79:

Attachment "tclCmdIL.c.patch" to ticket [2960852fff] added by kennykb 2010-03-01 03:40:36.

---

Index: generic/tclCmdIL.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclCmdIL.c,v
retrieving revision 1.178
diff -b -u -r1.178 tclCmdIL.c
--- generic/tclCmdIL.c	28 Feb 2010 20:12:48 -0000	1.178
+++ generic/tclCmdIL.c	28 Feb 2010 20:39:25 -0000
@@ -977,7 +977,7 @@
     procPtr = TclFindProc(iPtr, procName);
     if (procPtr == NULL) {
 	Tcl_AppendResult(interp, "\"", procName, "\" isn't a procedure",NULL);
-	Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "PROCEDURE", name, NULL);
+	Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "PROCEDURE", procName, NULL);
 	return TCL_ERROR;
     }
 
@@ -1133,7 +1133,7 @@
 	Tcl_AppendResult(interp, "bad level \"", TclGetString(objv[1]), "\"",
 		NULL);
 	Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "STACK_FRAME",
-		TclGetString(obj[1]), NULL);
+		TclGetString(objv[1]), NULL);
 	return TCL_ERROR;
     }