diff -rN -u old-bordeaux-threads/src/openmcl.lisp new-bordeaux-threads/src/openmcl.lisp
--- old-bordeaux-threads/src/openmcl.lisp	2009-04-04 20:56:39.000000000 -0500
+++ new-bordeaux-threads/src/openmcl.lisp	2009-04-04 20:56:39.000000000 -0500
@@ -14,8 +14,8 @@
 ;;; Thread Creation
 
 (defun %make-thread (function name)
-  (ccl:process-run-function name function
-                            :use-standard-initial-bindings nil))
+  (ccl:process-run-function (list :name name :use-standard-initial-bindings nil)
+                            function))
 
 (defun current-thread ()
   ccl:*current-process*)