proc callback {input} { putserv "PRIVMSG #channel :Succeeded." } . . . . if {[catch { set result [bgexec $postingCmd callback] }]} { putserv "NOTICE $nick :Failed for some reason" } else { putserv "NOTICE $nick :Started" }