diff --git a/aplist.scm b/aplist.scm
index 59c370d..aa21bb4 100644
--- a/aplist.scm
+++ b/aplist.scm
@@ -31,11 +31,11 @@
 ;;; map
 
 (define (alist-map fn alist)
-  (reverse (alist-fold (lambda (key val acc) (cons (fn key val) acc))
+  (reverse (alist-fold (lambda (key val list) (cons (fn key val) list))
                        '() alist)))
 
 (define (plist-map fn plist)
-  (reverse (plist-fold (lambda (key val acc) (cons (fn key val) acc))
+  (reverse (plist-fold (lambda (key val list) (cons (fn key val) list))
                        '() plist)))
 
 ;;; ->