new-ticket-defs.tcl