Added missing Tcl_Preserve() call