Evaluated proc %- {who q} { set id [lsearch -regexp [split [string toupper [%% $who]] "\n"] [string toupper $q]]; if {$id > -1} {set o 0; if {$id == 0} set o 1; set ::playlist($who) [join [lreplace [split $::playlist($who) \n] [expr $id*3] [- [+ $id 4]] $o] \n]; %% $who} {. no matches} }