Evaluated proc depends_list name { if {[info proc $name] != ""} { set ok [loffset [regexp -all -inline {\[(.+?)( |])} [safe_inspect $name]] 1 3]; set out [list]; foreach item $ok { if {[info proc $item] != ""} {lappend out $item} }; . $out}}