diff --git a/src/thread-util.lisp b/src/thread-util.lisp
index f0ceab5..6dfb1cf 100644
--- a/src/thread-util.lisp
+++ b/src/thread-util.lisp
@@ -157,7 +157,7 @@
   `(progn ,@body))
 
 (defmacro with-thread ((&key bindings name) &body body)
-  `(let ((*default-special-bindings* ,bindings))
+  `(let ((*default-special-bindings* (append ,bindings *default-special-bindings*)))
      (make-thread (lambda ()
                     (with-abort-restart
                       ,@body))