upvar_logic_tcl