diff --git a/lib/srfi/1/fold.scm b/lib/srfi/1/fold.scm
index d5fb4e42..5650d951 100644
--- a/lib/srfi/1/fold.scm
+++ b/lib/srfi/1/fold.scm
@@ -58,9 +58,8 @@
   (if (null? lists)
       (if (null? ls)
           '()
-          (let ((rev-ls (reverse ls)))
-            (let lp ((ls (cdr rev-ls)) (res (car rev-ls)))
-              (if (null? ls) res (lp (cdr ls) (append (f (car ls)) res))))))
+          (let lp ((ls (reverse ls)) (res '()))
+            (if (null? ls) res (lp (cdr ls) (append (f (car ls)) res)))))
       (if (and (pair? ls) (every pair? lists))
           (let lp ((lists (cons ls lists)))
             (let ((vals (apply f (map car lists)))