Evaluated proc deptest name { if {[info proc $name] == ""} {error {proc does not exist}}; set ok [split [string map {\{ { } \} { } [ { } ] { } \\ { }} [fourth [safesrc $name]]] { }]; set out [list]; foreach item $ok { if {[info proc $item] != ""} {lappend out $item} }; lnull [uniq $out] }