From 43e9a5dd94199dc4a0b769d2c635a9d74763ae40 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Tue, 15 Dec 2015 14:40:01 +0000
Subject: Suppress additions to the -errorinfo from a tailcall-invoked command.

---
 generic/tclBasic.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index 5c5bc64..d3be1f1 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -8377,7 +8377,7 @@ TclNRTailcallEval(
     TclMarkTailcall(interp);
     TclNRAddCallback(interp, TailcallCleanup, listPtr, NULL, NULL,NULL);
     iPtr->lookupNsPtr = (Namespace *) nsPtr;
-    return TclNREvalObjv(interp, objc-1, objv+1, 0, NULL);
+    return TclNREvalObjv(interp, objc-1, objv+1, TCL_EVAL_NOERR, NULL);
 }
 
 static int
-- 
cgit v0.12