diff --git a/foreign/c/pointer.scm b/foreign/c/pointer.scm
index a23c805..9fc2ad1 100644
--- a/foreign/c/pointer.scm
+++ b/foreign/c/pointer.scm
@@ -104,6 +104,9 @@
   (gauche (define c-null? pointer-null?))
   (stklos (define c-null?
             (lambda (pointer)
+              (display "HERE c-null?: ")
+              (write pointer)
+              (newline)
               (and (not (void? pointer))
                    pointer
                    (cpointer-null? pointer)))))