1 files changed, 2 insertions, 0 deletions
diff --git a/src/alloc.c b/src/alloc.c
index 29e0ab46ea0..24acdaafea9 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -1163,6 +1163,8 @@ Does not copy symbols.")
      register int i, size;
      size = XVECTOR (obj)->size;
+      if (size & PSEUDOVECTOR_FLAG)
+        size &= PSEUDOVECTOR_SIZE_MASK;
      vec = XVECTOR (make_pure_vector (size));
      for (i = 0; i < size; i++)
        vec->contents[i] = Fpurecopy (XVECTOR (obj)->contents[i]);

diff --git a/src/alloc.c b/src/alloc.c index 29e0ab46ea0..24acdaafea9 100644 --- a/src/alloc.c +++ b/src/alloc.c
@@ -1163,6 +1163,8 @@ Does not copy symbols.")
1163	register int i, size;	1163	register int i, size;
1164		1164
1165	size = XVECTOR (obj)->size;	1165	size = XVECTOR (obj)->size;
		1166	if (size & PSEUDOVECTOR_FLAG)
		1167	size &= PSEUDOVECTOR_SIZE_MASK;
1166	vec = XVECTOR (make_pure_vector (size));	1168	vec = XVECTOR (make_pure_vector (size));
1167	for (i = 0; i < size; i++)	1169	for (i = 0; i < size; i++)
1168	vec->contents[i] = Fpurecopy (XVECTOR (obj)->contents[i]);	1170	vec->contents[i] = Fpurecopy (XVECTOR (obj)->contents[i]);