diff options
author | dgp <dgp@users.sourceforge.net> | 2016-06-28 16:31:27 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2016-06-28 16:31:27 (GMT) |
commit | 3f1e1192cb2dad651a1dd3ce1518c23bb7a0da2a (patch) | |
tree | 0d9f412cd208a2082766b1309a8ab0ebb052d740 /generic/tclVar.c | |
parent | a9aed18760696a33af72db20fc32081d7f3c1c61 (diff) | |
parent | 73124928ba9d5134012c0c7bdfcd02dcf876d7cf (diff) | |
download | tcl-3f1e1192cb2dad651a1dd3ce1518c23bb7a0da2a.zip tcl-3f1e1192cb2dad651a1dd3ce1518c23bb7a0da2a.tar.gz tcl-3f1e1192cb2dad651a1dd3ce1518c23bb7a0da2a.tar.bz2 |
merge trunk
Diffstat (limited to 'generic/tclVar.c')
-rw-r--r-- | generic/tclVar.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclVar.c b/generic/tclVar.c index cb1ee21..003338c 100644 --- a/generic/tclVar.c +++ b/generic/tclVar.c @@ -4917,7 +4917,8 @@ Tcl_UpvarObjCmd( Tcl_SetObjResult(interp, Tcl_ObjPrintf( "bad level \"%s\"", TclGetString(levelObj))); - Tcl_SetErrorCode(interp, "TCL", "VALUE", "LEVEL", NULL); + Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "LEVEL", + TclGetString(levelObj), NULL); return TCL_ERROR; } |