Index: doc/tcltest.n
===================================================================
RCS file: /cvsroot/tcl/tcl/doc/tcltest.n,v
retrieving revision 1.16
diff -u -r1.16 tcltest.n
--- doc/tcltest.n	18 Apr 2002 00:00:19 -0000	1.16
+++ doc/tcltest.n	31 May 2002 23:30:43 -0000
@@ -87,10 +87,6 @@
 \fBtcltest::normalizePath \fIpathVar\fR
 .sp
 \fBtcltest::bytestring \fIstring\fR
-.sp
-\fBtcltest::threadReap\fR
-.sp
-\fBtcltest::mainThread\fR
 .BE
 .SH DESCRIPTION
 .PP
@@ -364,21 +360,6 @@
 denormalized or improperly formed strings to pass to C procedures that
 are supposed to accept strings with embedded NULL types and confirm
 that a string result has a certain pattern of bytes.
-.TP
-\fBtcltest::threadReap\fR
-\fBtcltest::threadReap\fR only works if \fItestthread\fR is
-defined, generally by compiling tcltest.  If \fItestthread\fR is
-defined, \fBtcltest::threadReap\fR kills all threads except for the
-main thread.  It gets the ID of the main thread by calling
-\fItestthread names\fR during initialization.  This value is stored in
-\fItcltest::mainThread\fR. \fBtcltest::threadReap\fR returns the
-number of existing threads at completion.
-.TP
-\fBtcltest::mainThread\fR
-Sets or returns the main thread ID.  This defaults to 1.  This is the
-only thread that is not killed by tcltest::threadReap and is set
-according to the return value of \fItestthread names\fR at
-initialization. 
 .SH TESTS
 The \fBtest\fR procedure runs a test script and prints an error
 message if the script's result does not match the expected result.
@@ -386,7 +367,7 @@
 The first uses a separate argument for each of the attributes and
 values.  The second form places all of the attributes and values
 together into a single argument; the argument must have proper list
-structure, with teh elements of the list being the attributes and
+structure, with the elements of the list being the attributes and
 values.  The second form makes it easy to construct multi-line
 scripts, since the braces around the whole list make it unnecessary to
 include a backslash at the end of each line.  In the second form, no
Index: library/tcltest/tcltest.tcl
===================================================================
RCS file: /cvsroot/tcl/tcl/library/tcltest/tcltest.tcl,v
retrieving revision 1.50
diff -u -r1.50 tcltest.tcl
--- library/tcltest/tcltest.tcl	8 May 2002 05:50:24 -0000	1.50
+++ library/tcltest/tcltest.tcl	31 May 2002 23:30:43 -0000
@@ -27,14 +27,15 @@
     # Export the public tcltest procs
     namespace export bytestring cleanupTests debug errorChannel \
 	    errorFile interpreter limitConstraints loadFile loadScript \
-	    loadTestedCommands mainThread makeDirectory makeFile match \
+	    loadTestedCommands makeDirectory makeFile match \
 	    matchDirectories matchFiles normalizeMsg normalizePath \
 	    outputChannel outputFile preserveCore removeDirectory \
 	    removeFile runAllTests singleProcess skip skipDirectories \
 	    skipFiles temporaryDirectory test testConstraint \
-	    testsDirectory threadReap verbose viewFile workingDirectory
+	    testsDirectory verbose viewFile workingDirectory
     # Export the tcltest 1 compatibility procs
-    namespace export getMatchingFiles restoreState saveState
+    namespace export getMatchingFiles mainThread restoreState saveState \
+	    threadReap
 
     proc Default {varName value} {
 	variable $varName
