diff --git a/foreign/c/pointer.scm b/foreign/c/pointer.scm
index dbb558c..ac52003 100644
--- a/foreign/c/pointer.scm
+++ b/foreign/c/pointer.scm
@@ -106,6 +106,10 @@
             (display "HERE5: ")
             (display pointer)
             (newline)
+            (display (if (c-bytevector? pointer)
+              (pointer-null? pointer)
+              #f))
+            (newline)
             (if (c-bytevector? pointer)
               (pointer-null? pointer)
               #f))))