1 files changed, 2 insertions, 3 deletions

diff --git a/src/lread.c b/src/lread.c
index 02f7caadeda..5a595f2119b 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -2879,7 +2879,7 @@ read1 (Lisp_Object readcharfun, int *pch, bool first_in_list)
                   /* Sub char-table can't be read as a regular
                      vector because of a two C integer fields.  */
                   Lisp_Object tbl, tmp = read_list (1, readcharfun);
-                  ptrdiff_t size = XFIXNUM (Flength (tmp));
+                  ptrdiff_t size = list_length (tmp);
                   int i, depth, min_char;
                   struct Lisp_Cons *cell;
 
@@ -3846,8 +3846,7 @@ static Lisp_Object
 read_vector (Lisp_Object readcharfun, bool bytecodeflag)
 {
   Lisp_Object tem = read_list (1, readcharfun);
-  Lisp_Object len = Flength (tem);
-  ptrdiff_t size = XFIXNAT (len);
+  ptrdiff_t size = list_length (tem);
   if (bytecodeflag && size <= COMPILED_STACK_DEPTH)
     error ("Invalid byte code");
   Lisp_Object vector = make_nil_vector (size);