summaryrefslogtreecommitdiffstats
path: root/library/history.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'library/history.tcl')
-rw-r--r--library/history.tcl4
1 files changed, 2 insertions, 2 deletions
diff --git a/library/history.tcl b/library/history.tcl
index 077d604..4d21143 100644
--- a/library/history.tcl
+++ b/library/history.tcl
@@ -2,7 +2,7 @@
#
# Implementation of the history command.
#
-# RCS: @(#) $Id: history.tcl,v 1.8 2009/07/25 21:51:02 dkf Exp $
+# RCS: @(#) $Id: history.tcl,v 1.9 2009/11/18 21:23:20 nijtmans Exp $
#
# Copyright (c) 1997 Sun Microsystems, Inc.
#
@@ -78,7 +78,7 @@ proc ::tcl::HistAdd {event {exec {}}} {
if {
[prefix longest {exec {}} $exec] eq ""
&& [llength [info level 0]] == 3
- } then {
+ } {
return -code error "bad argument \"$exec\": should be \"exec\""
}