* eval.c (SCM_APPLY): Check that arg1 is bound for scm_tc7_cxr.

diff --git a/libguile/eval.c b/libguile/eval.c
index d57ca1a..0d3c620 100644 (file)
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -3399,7 +3399,7 @@ tail:
       SCM_ASRTGO (SCM_NULLP (args), wrongnumargs);
       RETURN (SCM_SUBRF (proc) (arg1))
     case scm_tc7_cxr:
-      SCM_ASRTGO (SCM_NULLP (args), wrongnumargs);
+      SCM_ASRTGO (!SCM_UNBNDP (arg1) && SCM_NULLP (args), wrongnumargs);
       if (SCM_SUBRF (proc))
        {
          if (SCM_INUMP (arg1))