From 24d28892567192aedf221dde8efe1939487fd017 Mon Sep 17 00:00:00 2001
From: Miguel Sofer <miguel.sofer@gmail.com>
Date: Wed, 1 Aug 2007 12:09:02 +0000
Subject: 	* generic/tclVar.c (TclCleanupVar): fix [Bug 1765225], thx
 Larry 	Virden.

---
 ChangeLog        | 5 +++++
 generic/tclVar.c | 4 ++--
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index cc1a8f7..7a824b6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2007-08-01  Miguel Sofer  <msofer@users.sf.net>
+
+	* generic/tclVar.c (TclCleanupVar): fix [Bug 1765225], thx Larry
+	Virden. 
+
 2007-07-31  Miguel Sofer  <msofer@users.sf.net>
 
 	* doc/Hash.3:
diff --git a/generic/tclVar.c b/generic/tclVar.c
index d032cef..967f539 100644
--- a/generic/tclVar.c
+++ b/generic/tclVar.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: tclVar.c,v 1.145 2007/07/31 17:03:41 msofer Exp $
+ * RCS: @(#) $Id: tclVar.c,v 1.146 2007/08/01 12:09:04 msofer Exp $
  */
 
 #include "tclInt.h"
@@ -286,7 +286,7 @@ TclCleanupVar(
     Var *arrayPtr)		/* Array that contains the variable, or NULL
 				 * if this variable isn't an array element. */
 {
-    return CleanupVar(varPtr, arrayPtr);
+    CleanupVar(varPtr, arrayPtr);
 }
 
 
-- 
cgit v0.12