diff --git a/dependent.lisp b/dependent.lisp
index 3bdc8ec..aeb3f31 100644
--- a/dependent.lisp
+++ b/dependent.lisp
@@ -1282,7 +1282,7 @@
 
 #+sbcl
 (defun current-process ()
-  (sb-thread:current-thread-id))
+  sb-thread:*current-thread*)
 
 ;;; WITHOUT-INTERRUPTS -- provide for atomic operations.