Evaluated proc inspect args {set proc [lindex $args 0]; set procs [info commands [escape_glob $proc]*]; if {[llength [info commands [escape_glob $proc]]] == 1} {. "[src $proc]"} elseif {[llength $procs] == 0} {if [llength [set handler [apply unknown:handler_for $args]]] {src [lindex $handler 0]} else { . [args] is not a proc }} elseif {[llength $procs] == 1} {src [first $procs]} else {. "\"$proc\" [conjoin [lsort $procs] or]"}}