1 files changed, 7 insertions, 2 deletions

diff --git a/src/doc.c b/src/doc.c
index 32d65563fd9..f1ba64359a6 100644
--- a/src/doc.c
+++ b/src/doc.c
@@ -516,8 +516,13 @@ store_function_docstring (Lisp_Object obj, ptrdiff_t offset)
       if ((ASIZE (fun) & PSEUDOVECTOR_SIZE_MASK) > COMPILED_DOC_STRING)
         ASET (fun, COMPILED_DOC_STRING, make_number (offset));
       else
-        message ("No docstring slot for %s",
-                 SYMBOLP (obj) ? SSDATA (SYMBOL_NAME (obj)) : "<anonymous>");
+        {
+          AUTO_STRING (format, "No docstring slot for %s");
+          CALLN (Fmessage, format,
+                 (SYMBOLP (obj)
+                  ? SYMBOL_NAME (obj)
+                  : build_string ("<anonymous>")));
+        }
     }
 }