diff --git a/foreign/c/pointer.scm b/foreign/c/pointer.scm
index 9fc2ad1..f9e56a3 100644
--- a/foreign/c/pointer.scm
+++ b/foreign/c/pointer.scm
@@ -107,9 +107,8 @@
               (display "HERE c-null?: ")
               (write pointer)
               (newline)
-              (and (not (void? pointer))
-                   pointer
-                   (cpointer-null? pointer)))))
+              (and (pointer? pointer)
+                       (cpointer-null? pointer)))))
   (else (define c-null?
           (lambda (pointer)
             (if (c-bytevector? pointer)