q-and-a-thread-unalert.tcl