diff --git a/libguile/array-map.c b/libguile/array-map.c
index 2d6a2e71d..43ef046fd 100644
--- a/libguile/array-map.c
+++ b/libguile/array-map.c
@@ -208,7 +208,8 @@ scm_ramapc (void *cproc_ptr, SCM data, SCM ra0, SCM lra, const char *what)
       if (kmax < 0)
 	goto gencase;
       vra0 = scm_array_contents (ra0, SCM_UNDEFINED);
-      if (SCM_IMP (vra0)) goto gencase;
+      if (scm_is_false (vra0))
+        goto gencase;
       if (!SCM_I_ARRAYP (vra0))
 	{
 	  size_t length = scm_c_array_length (vra0);