in tcl_core.c [531:541]
static apr_status_t tcl_cleanup(void *data) { if (interp) { Tcl_DeleteInterp(interp); interp = NULL; } free(raw_tcl); return APR_SUCCESS; }