try to fix this

2020-09-25 21:15:38 +02:00 · 2020-09-25 21:15:38 +02:00 · 2cf20fd24d
commit 2cf20fd24d
parent 4a70c00991
1 changed files with 4 additions and 0 deletions
--- 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 {