From fff9b53f89966d7809b934c0edd0fa21c9019385 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Sun, 13 Jan 2013 18:08:03 +0000
Subject: Fix TclBackgroundException implementation

---
 generic/tclStubInit.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c
index a80ebf2..cb73ebf 100644
--- a/generic/tclStubInit.c
+++ b/generic/tclStubInit.c
@@ -75,7 +75,9 @@ static void TclBackgroundException(interp, code)
     Tcl_Interp *interp;
     int code;
 {
-    Tcl_BackgroundError(interp);
+    if (code != TCL_OK) {
+	Tcl_BackgroundError(interp);
+    }
 }
 #define TclCanceled canceled
 static int TclCanceled(interp)
-- 
cgit v0.12