Evaluated proc klog {} {set i 1; set out ""; foreach line [lreverse [log]] { if {[second $line] == "kloeri"} { append out "[datetime [first $line]]\n" } }; . $out}