From 4fb012a86a08bea4c25832de68910e96156ccf8f Mon Sep 17 00:00:00 2001
From: ocean <ocean@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Thu, 16 Jun 2005 06:22:19 +0000
Subject: [PATCH] * ext/tk/tcltklib.c (ip_rb_threadVwaitCommand): Tcl_Release
 was missing.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@8631 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ChangeLog         | 4 ++++
 ext/tk/tcltklib.c | 3 ++-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 8d74efde93..3f21815a90 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Thu Jun 16 15:09:38 2005  Hirokazu Yamamoto  <ocean@m2.ccsnet.ne.jp>
+
+	* ext/tk/tcltklib.c (ip_rb_threadVwaitCommand): Tcl_Release was missing.
+
 Thu Jun 16 13:34:48 2005  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
 
 	* ext/tk/lib/tk.rb: add Tk.getMultiple{Open|Save}File() which return
diff --git a/ext/tk/tcltklib.c b/ext/tk/tcltklib.c
index 58d65ec22c..7651084b24 100644
--- a/ext/tk/tcltklib.c
+++ b/ext/tk/tcltklib.c
@@ -4,7 +4,7 @@
  *              Oct. 24, 1997   Y. Matsumoto
  */
 
-#define TCLTKLIB_RELEASE_DATE "2005-04-26"
+#define TCLTKLIB_RELEASE_DATE "2005-06-16"
 
 #include "ruby.h"
 #include "rubysig.h"
@@ -3930,6 +3930,7 @@ ip_rb_threadVwaitCommand(clientData, interp, objc, objv)
     rb_thread_critical = thr_crit_bup;
 
     if (ret != TCL_OK) {
+        Tcl_Release(param);
         Tcl_Free((char *)param);
 
 #if TCL_MAJOR_VERSION >= 8