? build.patch
? pkgIndex.tcl
? index.patch
? thread.patch
Index: generic/threadCmd.c
===================================================================
RCS file: /cvsroot/tcl/thread/generic/threadCmd.c,v
retrieving revision 1.86
diff -u -r1.86 threadCmd.c
--- generic/threadCmd.c	18 Oct 2004 23:32:29 -0000	1.86
+++ generic/threadCmd.c	20 Oct 2004 05:42:42 -0000
@@ -2935,7 +2935,6 @@
         errorInfo = "";
         errorCode = "THREAD";
     } else {
-        result = Tcl_GetStringResult(interp);
         if (code == TCL_ERROR) {
             errorCode = Tcl_GetVar(interp, "errorCode", TCL_GLOBAL_ONLY);
             errorInfo = Tcl_GetVar(interp, "errorInfo", TCL_GLOBAL_ONLY);
@@ -2943,6 +2942,7 @@
             errorCode = NULL;
             errorInfo = NULL;
         }
+        result = Tcl_GetStringResult(interp);
     }
     
     resultPtr->code = code;
