diff --git a/tcl/Util.tcl b/tcl/Util.tcl index 24d1b2a9..e8fdbd4b 100644 --- a/tcl/Util.tcl +++ b/tcl/Util.tcl @@ -433,7 +433,15 @@ proc sta_unknown { args } { "ambiguous command name \"$name\": [lsort $cmds]" } } else { - return [uplevel 1 [concat builtin_unknown $args]] + # I cannot figure out why the first call to ::history add + # that presumably loads history.tcl causes the following error: + # Error: history.tcl, 306 invoked "return" outside of a proc. + # But this squashes the error. + if { [lindex $args 0] == "::history" } { + return "" + } else { + return [uplevel 1 builtin_unknown $args] + } } } }