summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog6
-rw-r--r--generic/tclThreadTest.c4
2 files changed, 8 insertions, 2 deletions
diff --git a/ChangeLog b/ChangeLog
index 5f52c3a..bb5fc21 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2009-11-23 Kevin B. Kenny <kennykb@acm.org>
+
+ * generic/tclThreadTest.c (NewTestThread): [Bug 2901803]
+ Further machinations to get NewTestThread actually to launch
+ the thread, not just compile.
+
2009-11-22 Donal K. Fellows <dkf@users.sf.net>
* generic/tclThreadTest.c (NewTestThread): [Bug 2901803]: Fix small
diff --git a/generic/tclThreadTest.c b/generic/tclThreadTest.c
index b5409f2..e009a86 100644
--- a/generic/tclThreadTest.c
+++ b/generic/tclThreadTest.c
@@ -12,7 +12,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclThreadTest.c,v 1.33 2009/11/23 00:02:51 dkf Exp $
+ * RCS: @(#) $Id: tclThreadTest.c,v 1.34 2009/11/23 19:00:49 kennykb Exp $
*/
#ifndef USE_TCL_STUBS
@@ -588,7 +588,7 @@ NewTestThread(
* use by the new thread.
*/
- result = Tcl_PkgRequire(tsdPtr->interp, "Tcltest", TCL_VERSION, 1);
+ result = Tcl_Eval(tsdPtr->interp, "load {} Tcltest");
if (result != TCL_OK) {
ThreadErrorProc(tsdPtr->interp);
}