Evaluated proc lastblob {who {n 200}} { set blob [list]; set ok 0; foreach x [top [lreverse [log]] $n] { if { [second $x] == $who } { set ok 1 }; if { $ok == 1 } { lappend blob [last $x] } elseif { $ok == 1 && [second $x] != $who } { return $blob } }; . $blob }