Index: /branches/1.2/devel/source/level-1/l1-lisp-threads.lisp
===================================================================
--- /branches/1.2/devel/source/level-1/l1-lisp-threads.lisp	(revision 8166)
+++ /branches/1.2/devel/source/level-1/l1-lisp-threads.lisp	(revision 8167)
@@ -199,4 +199,5 @@
           (lisp-thread.startup-function thread)
           (thread-make-startup-function thread tcr)))
+  (thread-change-state thread :exit :reset)
   thread)
 
@@ -302,4 +303,5 @@
 	  (lisp-thread.startup-function thread)
 	  (thread-make-startup-function thread tcr))
+    (thread-change-state thread :exit :reset)
     tcr))