Index: Lisp-Dep/mp-sbcl.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/Lisp-Dep/mp-sbcl.lisp,v
retrieving revision 1.8
diff -u -r1.8 mp-sbcl.lisp
--- Lisp-Dep/mp-sbcl.lisp	15 Jul 2005 16:36:58 -0000	1.8
+++ Lisp-Dep/mp-sbcl.lisp	23 Mar 2006 13:16:55 -0000
@@ -76,7 +76,7 @@
 	     (let ((*current-process* p))
 	       (funcall (process-function p) ))))
     (when (process-thread p) (sb-thread:terminate-thread p))
-    (when (setf (process-thread p) (sb-thread:make-thread #'boing))
+    (when (setf (process-thread p) (sb-thread:make-thread #'boing :name (process-name p)))
       p)))
 
 (defun destroy-process (process)
