From 92bea02afaf5653c84e77020e093da3a5a92334a Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Thu, 18 Jan 2007 22:43:57 +0000
Subject: Fix minor fault (made by aku, caught by aku)

---
 generic/tclUtil.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/generic/tclUtil.c b/generic/tclUtil.c
index 83241ad..7e951b7 100644
--- a/generic/tclUtil.c
+++ b/generic/tclUtil.c
@@ -11,7 +11,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- *  RCS: @(#) $Id: tclUtil.c,v 1.78 2007/01/18 11:37:12 dkf Exp $
+ *  RCS: @(#) $Id: tclUtil.c,v 1.79 2007/01/18 22:43:57 dkf Exp $
  */
 
 #include "tclInt.h"
@@ -580,7 +580,7 @@ TclMarkList(
 	    ckfree((char *) argv);
 	    ckfree((char *) argn);
 	    if (interp != NULL) {
-		Tcl_SetResult(interp, "internal error in Tcl_SplitList",
+		Tcl_SetResult(interp, "internal error in TclMarkList",
 			TCL_STATIC);
 	    }
 	    return TCL_ERROR;
-- 
cgit v0.12