1 files changed, 1 insertions, 1 deletions
diff --git a/eval.c b/eval.c
index 1435c0d1..a3574383 100644
--- a/eval.c
+++ b/eval.c
@@ -1205,7 +1205,7 @@ val applyv(val fun, struct args *args)
     uw_throwf(error_s, lit("apply: trailing-args argument missing"), nao);
 
   if (!args->list)
-    args->list = z(args->arg[--args->fill]);
+    args->list = tolist(z(args->arg[--args->fill]));
   else
     args->list = apply_intrinsic_frob_args(args->list);