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 "tcl $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 [first $procs]} else {. "\"$proc\" [conjoin [lsort $procs] or]"}}