diff --git a/foreign/c.sld b/foreign/c.sld
index e4f6ba8..6d2babc 100644
--- a/foreign/c.sld
+++ b/foreign/c.sld
@@ -205,6 +205,7 @@
           ;; TODO endianness
           native-endianness
           make-c-bytevector
+          c-bytevector->address
           ;; TODO c-bytevector=?
           ;; TODO c-bytevector-fill!
           ;; TODO c-bytevector-copy!
diff --git a/foreign/c/pointer.scm b/foreign/c/pointer.scm
index 2bb1c98..16ed729 100644
--- a/foreign/c/pointer.scm
+++ b/foreign/c/pointer.scm
@@ -116,7 +116,7 @@
               (= (c-memset-pointer->address pointer 0 0) 0)
               #f)))))
 
-#;(define c-bytevector->address
+(define c-bytevector->address
   (lambda (c-bytevector)
     (c-memset-pointer->address c-bytevector 0 0)))