1 files changed, 1 insertions, 1 deletions

diff --git a/src/doc.c b/src/doc.c
index 6b356d57cb3..7d82211faea 100644
--- a/src/doc.c
+++ b/src/doc.c
@@ -381,7 +381,7 @@ string is passed through `substitute-command-keys'.  */)
     }
   else if (CONSP (fun))
     {
-      funcar = Fcar (fun);
+      funcar = XCAR (fun);
       if (!SYMBOLP (funcar))
         xsignal1 (Qinvalid_function, fun);
       else if (EQ (funcar, Qkeymap))