2 files changed, 2 insertions, 2 deletions
diff --git a/ChangeLog b/ChangeLog
index cab340e..7ced1a7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,6 @@
 2011-05-03  Don Porter  <dgp@users.sourceforge.net>
 
+	* generic/tclUtil.c:	Tighten Tcl_SplitList().
 	* generic/tclListObj.c:	Tighten SetListFromAny().
 	* generic/tclDictObj.c:	Tighten SetDictFromAny().
 
diff --git a/generic/tclUtil.c b/generic/tclUtil.c
index 1e10465..bd543b0 100644
--- a/generic/tclUtil.c
+++ b/generic/tclUtil.c
@@ -542,8 +542,7 @@ Tcl_SplitList(
 	    *p = 0;
 	    p++;
 	} else {
-	    TclCopyAndCollapse(elSize, element, p);
-	    p += elSize+1;
+	    p += 1 + TclCopyAndCollapse(elSize, element, p);
 	}
     }