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

of using ctx_form.

1 files changed, 1 insertions, 1 deletions

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;