diff --git a/libguile/ramap.c b/libguile/ramap.c
index 6c72783c7..81ef6f84f 100644
--- a/libguile/ramap.c
+++ b/libguile/ramap.c
@@ -1529,10 +1529,8 @@ SCM_DEFINE (scm_array_map_x, "array-map!", 2, 0, 1,
 {
   SCM_VALIDATE_PROC (2,proc);
 
-  if (!(SCM_CONSP (sources) && SCM_CONSP (SCM_CDR (sources))))
-    {
-      SCM_MISC_ERROR ("At least one source array is required.", SCM_EOL);
-    }
+  if (!(SCM_CONSP (sources)))
+    SCM_WRONG_NUM_ARGS ();
 
   switch (SCM_TYP7 (proc))
     {