diff --git a/lib/srfi/1/fold.scm b/lib/srfi/1/fold.scm
index 892b075c..d5fb4e42 100644
--- a/lib/srfi/1/fold.scm
+++ b/lib/srfi/1/fold.scm
@@ -60,8 +60,7 @@
           '()
           (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))))
-              )))
+              (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)))