diff --git a/src/helper/startup.tcl b/src/helper/startup.tcl index eb965e009..a6b50aa35 100644 --- a/src/helper/startup.tcl +++ b/src/helper/startup.tcl @@ -88,9 +88,10 @@ proc unknown {args} { # do the name mangling from "flash banks" to "flash_banks" if {[llength $args]>=2} { set cmd_name "[lindex $args 0]_[lindex $args 1]" - # Fix?? add a check here if this is a command? - # we'll strip away args until we fail anyway... - return [eval "$cmd_name [lrange $args 2 end]"] + if {[catch {info body $cmd_name}]==0} { + # the command exists, try it... + return [eval "$cmd_name [lrange $args 2 end]"] + } } # This really is an unknown command. return -code error "Unknown command: $args"