From 57ab6ad9ea607896a402e20274dc12fb1e5db6d5 Mon Sep 17 00:00:00 2001
From: Miguel Sofer <miguel.sofer@gmail.com>
Date: Tue, 17 Oct 2006 15:39:24 +0000
Subject: 	* generic/tclInterp.c (ApplyObjCmd): fixed bad error in
 2006-10-12 	commit: interp released too early. Spotted by mistachkin.

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

diff --git a/ChangeLog b/ChangeLog
index b5219f2..73c9770 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-10-17  Miguel Sofer  <msofer@users.sf.net>
+
+	* generic/tclInterp.c (ApplyObjCmd): fixed bad error in 2006-10-12
+	commit: interp released too early. Spotted by mistachkin.
+
 2006-10-16  Miguel Sofer  <msofer@users.sf.net>
 
 	* tclProc.c (SetLambdaFromAny):
diff --git a/generic/tclInterp.c b/generic/tclInterp.c
index 6379528..60e6eb6 100644
--- a/generic/tclInterp.c
+++ b/generic/tclInterp.c
@@ -10,7 +10,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclInterp.c,v 1.63 2006/10/12 16:24:13 msofer Exp $
+ * RCS: @(#) $Id: tclInterp.c,v 1.64 2006/10/17 15:39:24 msofer Exp $
  */
 
 #include "tclInt.h"
@@ -1742,7 +1742,6 @@ AliasObjCmd(
 	Tcl_Preserve((ClientData) targetInterp);
 	result = Tcl_EvalObjv(targetInterp, cmdc, cmdv, TCL_EVAL_INVOKE);
 	TclTransferResult(targetInterp, result, interp);
-	Tcl_Release((ClientData) targetInterp);
     } else {
 	result = Tcl_EvalObjv(targetInterp, cmdc, cmdv, TCL_EVAL_INVOKE);
     }
@@ -1753,6 +1752,10 @@ AliasObjCmd(
 	tPtr->ensembleRewrite.numInsertedObjs = 0;
     }
     
+    if (targetInterp != interp) {
+	Tcl_Release((ClientData) targetInterp);
+    }
+
     for (i=0; i<cmdc; i++) {
 	Tcl_DecrRefCount(cmdv[i]);
     }
-- 
cgit v0.12