Corrected a couple of typos in error messages. [Bug 596027]

2 files changed, 7 insertions, 4 deletions

diff --git a/ChangeLog b/ChangeLog
index 9f0f949..b8d0cba 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -8,7 +8,10 @@
 	queue. Added test code in 'tcltest' and a new file of test cases
 	'notify.test' to exercise this functionality; several of the new
 	test cases fail for the original code and pass for the corrected
-	code.
+	code. [Bug 673714]
+
+	* unix/tclUnixTest.c (TestfilehandlerCmd): Corrected a couple
+	of typos in error messages. [Bug 596027]
 	
 2003-02-14  Jeff Hobbs  <jeffh@ActiveState.com>
 
diff --git a/unix/tclUnixTest.c b/unix/tclUnixTest.c
index 95adcd6..2b636b4 100644
--- a/unix/tclUnixTest.c
+++ b/unix/tclUnixTest.c
@@ -9,7 +9,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclUnixTest.c,v 1.13 2002/08/20 03:03:54 andreas_kupries Exp $
+ * RCS: @(#) $Id: tclUnixTest.c,v 1.14 2003/02/15 22:30:29 kennykb Exp $
  */
 
 #include "tclInt.h"
@@ -274,7 +274,7 @@ TestfilehandlerCmd(clientData, interp, argc, argv)
     } else if (strcmp(argv[1], "fill") == 0) {
 	if (argc != 3) {
 	    Tcl_AppendResult(interp, "wrong # arguments: should be \"",
-                    argv[0], " empty index\"", (char *) NULL);
+                    argv[0], " fill index\"", (char *) NULL);
 	    return TCL_ERROR;
 	}
 
@@ -287,7 +287,7 @@ TestfilehandlerCmd(clientData, interp, argc, argv)
 	
 	if (argc != 3) {
 	    Tcl_AppendResult(interp, "wrong # arguments: should be \"",
-                    argv[0], " empty index\"", (char *) NULL);
+                    argv[0], " fillpartial index\"", (char *) NULL);
 	    return TCL_ERROR;
 	}