diff options
-rw-r--r-- | src/helper/startup.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/helper/startup.tcl b/src/helper/startup.tcl index 6e5f577d..2f90911a 100644 --- a/src/helper/startup.tcl +++ b/src/helper/startup.tcl @@ -120,7 +120,7 @@ proc unknown {args} { return [eval "$cmd_name [lrange $args 2 end]"] } # This really is an unknown command. - puts "Unknown command: $args" + return -code error "Unknown command: $args" } |