(Fpurecopy): Set the pvec tag on pseudo vectors.

1 files changed, 4 insertions, 1 deletions

diff --git a/src/alloc.c b/src/alloc.c
index 48857ecff14..c42c27f0333 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -4966,7 +4966,10 @@ Does not copy symbols.  Copies strings without text properties.  */)
       for (i = 0; i < size; i++)
         vec->contents[i] = Fpurecopy (XVECTOR (obj)->contents[i]);
       if (COMPILEDP (obj))
-        XSETCOMPILED (obj, vec);
+        {
+          XSETPVECTYPE (vec, PVEC_COMPILED);
+          XSETCOMPILED (obj, vec);
+        }
       else
         XSETVECTOR (obj, vec);
       return obj;