diff --git a/lib/srfi/231/transforms.scm b/lib/srfi/231/transforms.scm
index d577bf4b..e5be17f5 100644
--- a/lib/srfi/231/transforms.scm
+++ b/lib/srfi/231/transforms.scm
@@ -449,7 +449,7 @@
   (list->vector (array->list array)))
 
 (define (vector->array domain vec . o)
-  (apply list->array domain (vector->list vec o)))
+  (apply list->array domain (vector->list vec) o))
 
 (define (array-assign! destination source)
   (assert (and (mutable-array? destination) (array? source)