Evaluated proc irclog_no_tcl num {regsub -lineanchor -all {^<.*> tcl .*$} [irclog $num] {}}