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 {. "\"$proc\" isn't a procedure"}} elseif {[llength $procs] == 1} {src "tcl [first $procs]"} else {. "\"$proc\" [conjoin [lsort $procs] or]"}}