1 files changed, 2 insertions, 2 deletions

diff --git a/src/lread.c b/src/lread.c
index 726f1f0e905..8a9088b8ed2 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -2551,8 +2551,8 @@ read1 (register Lisp_Object readcharfun, int *pch, int first_in_list)
              build them using function calls.  */
           Lisp_Object tmp;
           tmp = read_vector (readcharfun, 1);
-          return Fmake_byte_code (ASIZE (tmp),
-                                  XVECTOR (tmp)->contents);
+          make_byte_code (XVECTOR (tmp));
+          return tmp;
         }
       if (c == '(')
         {