1 files changed, 3 insertions, 0 deletions
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;
 }