summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog2
-rw-r--r--generic/tclVar.c4
2 files changed, 4 insertions, 2 deletions
diff --git a/ChangeLog b/ChangeLog
index 8c82766..e1a3d7c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
2008-07-14 Miguel Sofer <msofer@users.sf.net>
+ * generic/tclVar.c: fix error message
+
* generic/tclParse.c:
* tests/parse.test: remove unnecessary numLevel management
[Bug 2017583]
diff --git a/generic/tclVar.c b/generic/tclVar.c
index 6279064..8670c24 100644
--- a/generic/tclVar.c
+++ b/generic/tclVar.c
@@ -16,7 +16,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclVar.c,v 1.163 2008/06/06 19:46:37 andreas_kupries Exp $
+ * RCS: @(#) $Id: tclVar.c,v 1.164 2008/07/14 01:27:25 msofer Exp $
*/
#include "tclInt.h"
@@ -3945,7 +3945,7 @@ Tcl_VariableObjCmd(
Tcl_Obj *varNamePtr, *tailPtr;
if (objc < 2) {
- Tcl_WrongNumArgs(interp, 1, objv, "?name value...? name ?value?");
+ Tcl_WrongNumArgs(interp, 1, objv, "?name value ...? name ?value?");
return TCL_ERROR;
}