diff --git a/lib/srfi/231/test.sld b/lib/srfi/231/test.sld
index 4472a228..10c7954a 100644
--- a/lib/srfi/231/test.sld
+++ b/lib/srfi/231/test.sld
@@ -1814,6 +1814,15 @@
                                            list)
                                (make-array (make-interval '#(3 4) '#(4 5))
                                            list)))
+        (test-assert (array-any list?
+                                (make-array (make-interval '#(3) '#(4))
+                                            list)))
+        (test-assert (array-any (lambda (x) (odd? (car x)))
+                                (make-array (make-interval '#(3) '#(4))
+                                            list)))
+        (test-not (array-any (lambda (x) (even? (car x)))
+                                (make-array (make-interval '#(3) '#(4))
+                                            list)))
 
         ;; (do ((i 0 (+ i 1)))
         ;;     ((= i tests))
diff --git a/lib/srfi/231/transforms.scm b/lib/srfi/231/transforms.scm
index ae081b43..a85fd260 100644
--- a/lib/srfi/231/transforms.scm
+++ b/lib/srfi/231/transforms.scm
@@ -400,7 +400,6 @@
    (lambda (return)
      (apply array-for-each
             (lambda args (cond ((apply pred args) => return)))
-            #f
             array
             arrays)
      #f)))