diff --git a/stolen-treasure.tcl b/stolen-treasure.tcl index 9b6b317..a113c6f 100644 --- a/stolen-treasure.tcl +++ b/stolen-treasure.tcl @@ -6228,7 +6228,11 @@ proc inspect args { 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 { error "\"$proc\" isn't a procedure" + } } elseif {[llength $procs] == 1} { src [first $procs] } else {