Fix mismatch of Tcl_Preserve() / Tcl_Release().
Fix mismatch of Tcl_Preserve() / Tcl_Release().