(Fdocumentation_property): Gcpro `tem'.

1 files changed, 7 insertions, 1 deletions

diff --git a/src/doc.c b/src/doc.c
index dc52e713da4..02d0b5869b5 100644
--- a/src/doc.c
+++ b/src/doc.c
@@ -400,7 +400,13 @@ translation.")
   else if (CONSP (tem))
     tem = get_doc_string (tem, 0, 0);
   if (NILP (raw) && STRINGP (tem))
-    return Fsubstitute_command_keys (tem);
+    {
+      struct gcpro gcpro1;
+
+      GCPRO1 (tem);
+      return Fsubstitute_command_keys (tem);
+      UNGCPRO;
+    }
   return tem;
 }