* generic/tclCmdIL.c (Tcl_LsetObjCmd): [Bug 3019351]: Corrected wrong

	args message.

4 files changed, 19 insertions, 13 deletions

diff --git a/ChangeLog b/ChangeLog
index b7e26cc..642061d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,14 +1,19 @@
+2010-06-22  Donal K. Fellows  <dkf@users.sf.net>
+
+	* generic/tclCmdIL.c (Tcl_LsetObjCmd): [Bug 3019351]: Corrected wrong
+	args message.
+
 2010-06-21  Jan Nijtmans  <nijtmans@users.sf.net>
 
-	* unix/tclLoadDl.c     Eliminate various unnecessary type casts, use
-	* unix/tclLoadNext.c   function typedefs whenever possible
-	* unix/tclUnixChan.c
-	* unix/tclUnixFile.c
-	* unix/tclUnixNotfy.c
-	* unix/tclUnixSock.c
-	* unix/tclUnixTest.c
-	* unix/tclXtTest.c
-	* generic/tclZlib.c    Remove hack needed for zlib 1.2.3 on win32
+	* unix/tclLoadDl.c:    Eliminate various unnecessary type casts, use
+	* unix/tclLoadNext.c:  function typedefs whenever possible
+	* unix/tclUnixChan.c:
+	* unix/tclUnixFile.c:
+	* unix/tclUnixNotfy.c:
+	* unix/tclUnixSock.c:
+	* unix/tclUnixTest.c:
+	* unix/tclXtTest.c:
+	* generic/tclZlib.c:   Remove hack needed for zlib 1.2.3 on win32
 
 2010-06-18  Donal K. Fellows  <dkf@users.sf.net>
 
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c
index 3d4bcb2..8a38521 100644
--- a/generic/tclCmdIL.c
+++ b/generic/tclCmdIL.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: tclCmdIL.c,v 1.182 2010/05/17 09:46:09 dkf Exp $
+ * RCS: @(#) $Id: tclCmdIL.c,v 1.183 2010/06/22 12:25:16 dkf Exp $
  */
 
 #include "tclInt.h"
@@ -3508,7 +3508,8 @@ Tcl_LsetObjCmd(
      */
 
     if (objc < 3) {
-	Tcl_WrongNumArgs(interp, 1, objv, "listVar index ?index ...? value");
+	Tcl_WrongNumArgs(interp, 1, objv,
+                "listVar ?index? ?index ...? value");
 	return TCL_ERROR;
     }
 
diff --git a/tests/lset.test b/tests/lset.test
index 63c0975..c10f433 100644
--- a/tests/lset.test
+++ b/tests/lset.test
@@ -31,7 +31,7 @@ trace add variable noWrite write failTrace
 
 test lset-1.1 {lset, not compiled, arg count} testevalex {
     list [catch {testevalex lset} msg] $msg
-} "1 {wrong \# args: should be \"lset listVar index ?index ...? value\"}"
+} "1 {wrong \# args: should be \"lset listVar ?index? ?index ...? value\"}"
 test lset-1.2 {lset, not compiled, no such var} testevalex {
     list [catch {testevalex {lset noSuchVar 0 {}}} msg] $msg
 } "1 {can't read \"noSuchVar\": no such variable}"
diff --git a/tests/lsetComp.test b/tests/lsetComp.test
index 4d0ad2c..bc08d78 100755
--- a/tests/lsetComp.test
+++ b/tests/lsetComp.test
@@ -36,7 +36,7 @@ test lsetComp-1.1 {lset, compiled, wrong \# args} {
     evalInProc {
 	lset
     }
-} "1 {wrong \# args: should be \"lset listVar index ?index ...? value\"}"
+} "1 {wrong \# args: should be \"lset listVar ?index? ?index ...? value\"}"
 
 test lsetComp-2.1 {lset, compiled, list of args, not a simple var name} {
     evalInProc {