From 2ad19400aeb41866274b82c639f344b3b2a330e0 Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Fri, 12 Apr 2002 09:21:49 +0000
Subject: 	* unix/tkUnixSelect.c (SelRcvIncrProc): added missing
 Tcl_Release 	of interp

---
 unix/tkUnixSelect.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/unix/tkUnixSelect.c b/unix/tkUnixSelect.c
index 364469d..a0e1d3e 100644
--- a/unix/tkUnixSelect.c
+++ b/unix/tkUnixSelect.c
@@ -9,7 +9,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkUnixSelect.c,v 1.7 2001/07/03 01:03:16 hobbs Exp $
+ * RCS: @(#) $Id: tkUnixSelect.c,v 1.8 2002/04/12 09:21:49 hobbs Exp $
  */
 
 #include "tkInt.h"
@@ -1197,6 +1197,7 @@ SelRcvIncrProc(clientData, eventPtr)
 	     */
 
 	    retrPtr->result = TCL_OK;
+	    Tcl_Release((ClientData) interp);
 	    goto done;
 	} else {
 	    src = propInfo;
-- 
cgit v0.12