diff --git a/lib/srfi/231/transforms.scm b/lib/srfi/231/transforms.scm
index 90b868f5..853262ad 100644
--- a/lib/srfi/231/transforms.scm
+++ b/lib/srfi/231/transforms.scm
@@ -393,7 +393,7 @@
                (array? array)
                (every array? arrays)
                (every (lambda (a) (interval= (array-domain array) a)) arrays)))
-  (if (null? array)
+  (if (null? arrays)
       (interval-fold-left (array-getter array)
                           (lambda (accumulator array-element)
                             (operator accumulator array-element))