diff --git a/src/cmu.lisp b/src/cmu.lisp
index 6a2986f363fb03b4611db0d343966f41ff4ff005..af0b18e1a1f027c6711b41a5aee852057aa1d6bc 100644
--- a/src/cmu.lisp
+++ b/src/cmu.lisp
@@ -8,8 +8,9 @@ Distributed under the MIT license (see LICENSE file)
 
 ;;; Thread Creation
 
-(defun make-thread (function &key name)
-  (mp:make-process function :name name))
+(defun make-thread (function &rest keys &key name)
+  (declare (ignore name))
+  (apply #'mp:make-process function keys))
 
 (defun current-thread ()
   mp:*current-process*)