summaryrefslogtreecommitdiff
path: root/ext/tcltklib
diff options
context:
space:
mode:
Diffstat (limited to 'ext/tcltklib')
-rw-r--r--ext/tcltklib/tcltklib.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/ext/tcltklib/tcltklib.c b/ext/tcltklib/tcltklib.c
index 84a999d7e45..3febc433139 100644
--- a/ext/tcltklib/tcltklib.c
+++ b/ext/tcltklib/tcltklib.c
@@ -3094,6 +3094,7 @@ ip_delete(self)
{
struct tcltkip *ptr = get_ip(self);
+ del_root(ptr->ip);
Tcl_DeleteInterp(ptr->ip);
return Qnil;