1 files changed, 3 insertions, 0 deletions

diff --git a/src/eval.c b/src/eval.c
index e90b077bfb6..72facd5db64 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -2960,6 +2960,9 @@ function with `&rest' args, or `unevalled' for a special form.  */)
         function = indirect_function (function);
     }
 
+  if (CONSP (function) && EQ (XCAR (function), Qmacro))
+    function = XCDR (function);
+
   if (SUBRP (function))
     result = Fsubr_arity (function);
   else if (COMPILEDP (function))