From d1ba482f0b2255f721d22c806d2f4ae1a9acb222 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Tue, 15 Dec 2015 15:16:02 +0000
Subject: Different solution to the tailcall impact on -errorinfo.

---
 generic/tclBasic.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index 5c5bc64..10740a1 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -8386,6 +8386,9 @@ TailcallCleanup(
     Tcl_Interp *interp,
     int result)
 {
+    Interp *iPtr = (Interp *) interp;
+
+    iPtr->flags |= ERR_ALREADY_LOGGED;
     Tcl_DecrRefCount((Tcl_Obj *) data[0]);
     return result;
 }
-- 
cgit v0.12