diff --git a/srfi-133.html b/srfi-133.html
index c296b93..431ee69 100644
--- a/srfi-133.html
+++ b/srfi-133.html
@@ -1464,7 +1464,7 @@
-
- (vector-cumulate f vec knil)
+ (vector-cumulate f knil vec)
-> vector
diff --git a/vectors/vectors-impl.scm b/vectors/vectors-impl.scm
index 9eaabd0..9b798e0 100644
--- a/vectors/vectors-impl.scm
+++ b/vectors/vectors-impl.scm
@@ -917,13 +917,13 @@
vector-count)
(cons vec vectors)))))
-;;; (VECTOR-CUMULATE )
+;;; (VECTOR-CUMULATE )
;;; -> vector
;;; Returns a ly allocated vector with the same length as
;;; . Each element of is set to the result of invoking on
;;; [i-1] and [i], except that for the first call on , the first
;;; argument is . The vector is returned.
-(define (vector-cumulate f vec knil)
+(define (vector-cumulate f knil vec)
(let* ((len (vector-length vec))
(result (make-vector len)))
(let loop ((i 0) (left knil))