1 files changed, 1 insertions, 1 deletions

diff --git a/src/data.c b/src/data.c
index 5ee40c54040..a910f6e58f3 100644
--- a/src/data.c
+++ b/src/data.c
@@ -2215,7 +2215,7 @@ bool-vector.  IDX starts at 0.  */)
   CHECK_NUMBER (idx);
   idxval = XINT (idx);
   CHECK_ARRAY (array, Qarrayp);
-  CHECK_IMPURE (array, XVECTOR (array));
+  CHECK_IMPURE (array, XPNTR (array));
 
   if (VECTORP (array))
     {