diff --git a/scsh/lib/list-pack.scm b/scsh/lib/list-pack.scm
index a2f4b67..bafb5d5 100644
--- a/scsh/lib/list-pack.scm
+++ b/scsh/lib/list-pack.scm
@@ -175,8 +175,8 @@
     (proc (:value :value &opt (proc (:value :value) :value)) :value))
 
    ;; Extended from their R4RS definitions.
-   (map (proc ((proc (:value) :value) &rest :value) :value))
-   (for-each (proc ((proc (:value) :values) &rest :value) :unspecific))
+   (map      (proc ((proc (:value &rest :value) :value)  :value &rest :value) :value))
+   (for-each (proc ((proc (:value &rest :value) :values) :value &rest :value) :unspecific))
 
    ;; R4RS exports
    (cons (proc (:value :value) :pair))