Evaluated proc lastblob__ who {set i 0; foreach l [lreverse [log]] { if { [second $l] != $who } { return $i }; incr i } }