Preserve the chanPtr so that script evaluation cannot invalidate it when

we plan to use it again.

1 files changed, 2 insertions, 0 deletions

diff --git a/generic/tclIO.c b/generic/tclIO.c
index a1d5447..b9cd30c 100644
--- a/generic/tclIO.c
+++ b/generic/tclIO.c
@@ -7540,6 +7540,7 @@ TclChannelEventScriptInvoker(clientData, mask)
      */
     
     Tcl_Preserve((ClientData) interp);
+    Tcl_Preserve((ClientData) chanPtr);
     result = Tcl_EvalObjEx(interp, esPtr->scriptPtr, TCL_EVAL_GLOBAL);
 
     /*
@@ -7556,6 +7557,7 @@ TclChannelEventScriptInvoker(clientData, mask)
 	}
         Tcl_BackgroundError(interp);
     }
+    Tcl_Release((ClientData) chanPtr);
     Tcl_Release((ClientData) interp);
 }