Evaluated proc depends_list2 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}}