diff --git a/srfi/18.sld b/srfi/18.sld
index d3ea0033..b34240dc 100644
--- a/srfi/18.sld
+++ b/srfi/18.sld
@@ -19,6 +19,7 @@
     thread-yield!
     thread-terminate!
     current-thread
+    current-thread-data
     thread-join!
 
     mutex?
@@ -91,6 +92,9 @@
             *primordial-thread*
             t)))
 
+    (define (current-thread-data)
+      (%get-thread-data))
+
     (define *primordial-thread*
       (vector 'cyc-thread-obj #f #f "main thread" #f #f))