1 files changed, 1 insertions, 1 deletions
diff --git a/eval.c b/eval.c
index ee4975d..fdb3683 100644
--- a/eval.c
+++ b/eval.c
@@ -2332,7 +2332,7 @@ SCM scm_cvapply(proc, n, argv)
     return SUBRF(proc)(argv[0], argv[1],
 		       2==n ? EOL : scm_v2lst(n-2, &argv[2]));
   case tc7_asubr:
-    if (1 >= n) return SUBRF(proc)(0==n ? argv[0] : UNDEFINED, UNDEFINED);
+    if (1 >= n) return SUBRF(proc)(0==n ? UNDEFINED : argv[0], UNDEFINED);
     res = argv[0];
     for (i = 1; i < n; i++)
       res = SUBRF(proc)(res, argv[i]);