diff --git a/src/impl-allegro.lisp b/src/impl-allegro.lisp
index 94705285443b0e4cbd28ea9a4add7abc28b507a5..144ee98e213f6e34d55f6d6e727a463eeefba0ad 100644
--- a/src/impl-allegro.lisp
+++ b/src/impl-allegro.lisp
@@ -61,7 +61,7 @@ Distributed under the MIT license (see LICENSE file)
 
 (defvar *thread-results* (make-hash-table :weak-keys t))
 
-(defvar *thread-join-lock* (make-lock :name "Bordeaux threads join lock"))
+(defvar *thread-join-lock* (make-lock "Bordeaux threads join lock"))
 
 (defun %make-thread (function name)
   (mp:process-run-function