chat-defs.tcl