1 files changed, 1 insertions, 0 deletions

diff --git a/src/lread.c b/src/lread.c
index 189fcc0977f..ae02b454333 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -3672,6 +3672,7 @@ defsubr (sname)
 {
   Lisp_Object sym;
   sym = intern (sname->symbol_name);
+  XSETPVECTYPE (sname, PVEC_SUBR);
   XSETSUBR (XSYMBOL (sym)->function, sname);
 }