diff --git a/src/code/multi-proc.lisp b/src/code/multi-proc.lisp
index e478a958facb624e9f1148f61090c8254e2fb332..4e2b1bcd78007a01fa3a3e7333f9f4a18a1c4eef 100644
--- a/src/code/multi-proc.lisp
+++ b/src/code/multi-proc.lisp
@@ -1977,6 +1977,6 @@
 		   (setf (lock-process ,lock) nil)))))))
 
 (defun process-join (process)
-  (mp:process-wait (format nil "Waiting for thread ~A to complete" thread)
-                   (lambda () (not (mp:process-alive-p thread))))
+  (mp:process-wait (format nil "Waiting for thread ~A to complete" process)
+                   (lambda () (not (mp:process-alive-p process))))
   (values-list (process-%return-values process)))