diff --git a/foreign/c/pointer.scm b/foreign/c/pointer.scm
index 9f3588d..13a1671 100644
--- a/foreign/c/pointer.scm
+++ b/foreign/c/pointer.scm
@@ -102,6 +102,9 @@
   (chibi #t)
   (else (define c-null?
           (lambda (pointer)
+            (display "HERE: ")
+            (write pointer)
+            (newline)
             (if (c-bytevector? pointer)
               (= (c-memset-pointer->address pointer 0 0) 0)
               #f)))))