Evaluated proc kloeri_log {} { set out ""; foreach line [ltop [lreverse [log]] 100] { if {[second $line] == "kloeri"} { append out [last $line]\n }}; . $out  }