From 3768c5cbb266c4eb7bcbc8c9f466c546a8e41dff Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Fri, 25 Nov 2011 11:55:35 +0000
Subject: 	* library/history.tcl (history): Simplify the dance of
 variable 	management used when chaining to the implementation command.

---
 ChangeLog           | 5 +++++
 library/history.tcl | 2 +-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 76623c2..03ff7d9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2011-11-25  Donal K. Fellows  <dkf@users.sf.net>
+
+	* library/history.tcl (history): Simplify the dance of variable
+	management used when chaining to the implementation command.
+
 2011-11-22  Donal K. Fellows  <dkf@users.sf.net>
 
 	* generic/tclExecute.c (TclCompileObj): Simplify and de-indent the
diff --git a/library/history.tcl b/library/history.tcl
index fb722c8..51d2404 100644
--- a/library/history.tcl
+++ b/library/history.tcl
@@ -53,7 +53,7 @@ proc ::history {args} {
     }
 
     # Tricky stuff needed to make stack and errors come out right!
-    tailcall apply {args {tailcall history {*}$args} ::tcl} {*}$args
+    tailcall apply {arglist {tailcall history {*}$arglist} ::tcl} $args
 }
 
 # tcl::HistAdd --
-- 
cgit v0.12