* eval.c (apply): Fix in error message: hard coded "apply" instead

of using ctx_form.

2 files changed, 6 insertions, 1 deletions

diff --git a/ChangeLog b/ChangeLog
index 3d05b8ed..76c7c549 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2012-09-24  Kaz Kylheku  <kaz@kylheku.com>
 
+	* eval.c (apply): Fix in error message: hard coded "apply" instead
+	of using ctx_form.
+
+2012-09-24  Kaz Kylheku  <kaz@kylheku.com>
+
 	Bugfix: internal funcall functions not handling functions
 	with optional arguments.
 
diff --git a/eval.c b/eval.c
index e5a251f8..bc126c72 100644
--- a/eval.c
+++ b/eval.c
@@ -273,7 +273,7 @@ val apply(val fun, val arglist, val ctx_form)
   type_check (fun, FUN);
 
   type_assert (listp(arglist),
-               (lit("apply arglist ~s is not a list"), arglist, nao));
+               (lit("~s: arglist ~s is not a list"), car(ctx_form), arglist, nao));
 
   variadic = fun->f.variadic;
   fixparam = fun->f.fixparam;