(read1): Set pvectype for char_tables.

2 files changed, 4 insertions, 2 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index a48dc5c6438..2ba3ac06a86 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,7 @@
 2007-10-17  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+        * lread.c (read1): Set pvectype for char_tables.
+
         * lisp.h (XMISCANY, XMARKER, XINTFWD, XBOOLFWD, XOBJFWD, XOVERLAY)
         (XBUFFER_OBJFWD, XBUFFER_LOCAL_VALUE, XKBOARD_OBJFWD, XSAVE_VALUE):
         Add type checks.
diff --git a/src/lread.c b/src/lread.c
index 77eb800b41a..ee020fd43d3 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -2207,7 +2207,7 @@ read1 (readcharfun, pch, first_in_list)
               if (XVECTOR (tmp)->size < CHAR_TABLE_STANDARD_SLOTS
                   || XVECTOR (tmp)->size > CHAR_TABLE_STANDARD_SLOTS + 10)
                 error ("Invalid size char-table");
-              XSETCHAR_TABLE (tmp, XCHAR_TABLE (tmp));
+              XSETPVECTYPE (XVECTOR (tmp), PVEC_CHAR_TABLE);
               XCHAR_TABLE (tmp)->top = Qt;
               return tmp;
             }
@@ -2220,7 +2220,7 @@ read1 (readcharfun, pch, first_in_list)
                   tmp = read_vector (readcharfun, 0);
                   if (XVECTOR (tmp)->size != SUB_CHAR_TABLE_STANDARD_SLOTS)
                     error ("Invalid size char-table");
-                  XSETCHAR_TABLE (tmp, XCHAR_TABLE (tmp));
+                  XSETPVECTYPE (XVECTOR (tmp), PVEC_CHAR_TABLE);
                   XCHAR_TABLE (tmp)->top = Qnil;
                   return tmp;
                 }