toggle-approval.tcl