diff --git a/lib/chibi/parse/parse.scm b/lib/chibi/parse/parse.scm
index 25bdaa35..d2fc3091 100644
--- a/lib/chibi/parse/parse.scm
+++ b/lib/chibi/parse/parse.scm
@@ -307,7 +307,7 @@
 
 (define (parse->list f source . o)
   (let ((index (if (pair? o) (car o) 0)))
-    (reverse (parse-fold cons '() f source index))))
+    (reverse (parse-fold f cons '() source index))))
 
 ;;> As \scheme{parse->list} but requires the entire source be parsed
 ;;> with no left over characters, signalling an error otherwise.