2 files changed, 7 insertions, 2 deletions
diff --git a/ChangeLog b/ChangeLog
index dc98eaeb..e988caa8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2014-07-03  Kaz Kylheku  <kaz@kylheku.com>
+
+	* eval.c (apf, ipf): Bugfix: do_apf and do_ipf
+	should be registered as variadic functions.
+
 2014-07-02  Kaz Kylheku  <kaz@kylheku.com>
 
 	Version 91.
diff --git a/eval.c b/eval.c
index 0d2a6144..55cda3cf 100644
--- a/eval.c
+++ b/eval.c
@@ -3182,7 +3182,7 @@ static val do_apf(val fun, val args)
 
 static val apf(val fun)
 {
-  return func_f1(fun, do_apf);
+  return func_f0v(fun, do_apf);
 }
 
 static val do_ipf(val fun, val args)
@@ -3192,7 +3192,7 @@ static val do_ipf(val fun, val args)
 
 static val ipf(val fun)
 {
-  return func_f1(fun, do_ipf);
+  return func_f0v(fun, do_ipf);
 }
 
 static val prinl(val obj, val stream)