Evaluated proc kloeri_last {{n 1}} { set i 1; foreach line [ltop [lreverse [log]] 100] { if {[second $line] == "kloeri"} { if {$i == $n} {return [last $line]} {incr i} } } }