From fffc1fb271906e9072e0449965e9749019e2ebee Mon Sep 17 00:00:00 2001
From: dkf <dkf@noemail.net>
Date: Sat, 27 Sep 2008 14:20:54 +0000
Subject: Missed a (minor) change.

FossilOrigin-Name: fcfd1ea4e635e07bf47ce54391cfec092fc9300b
---
 generic/tclCmdIL.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c
index df5dd4c..f144cef 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.137.2.5 2008/09/27 14:19:42 dkf Exp $
+ * RCS: @(#) $Id: tclCmdIL.c,v 1.137.2.6 2008/09/27 14:20:54 dkf Exp $
  */
 
 #include "tclInt.h"
@@ -2455,7 +2455,7 @@ Tcl_LrepeatObjCmd(
      * init value elementCount times.
      */
 
-    listPtr = Tcl_NewListObj(elementCount*objc, NULL);
+    listPtr = Tcl_NewListObj(totalElems, NULL);
     listRepPtr = (List *) listPtr->internalRep.twoPtrValue.ptr1;
     listRepPtr->elemCount = elementCount*objc;
     dataArray = &listRepPtr->elements;
-- 
cgit v0.12