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} }; . $out }