Evaluated proc depends_list name { if {[isproc $name] == 1} { set ok [split [string map {\{ { } \} { } [ { } ] { } \\ { }} [fourth [safesrc $name]]] { }]; set out [list]; foreach item $ok { if {[info proc $item] != ""} {lappend out $item} }; lnull [uniq $out] } }