X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fpurify.c;h=e033c7d2c2b52189c6911b24ffb1a5da5040fc27;hb=94e0f68a627ce839d59e88b4c8faad486e75af91;hp=ec43c3afddc91fffd53fc942c8477a574faf95c2;hpb=72703da290c601b571b708045861eba5a7eefc58;p=sbcl.git

diff --git a/src/runtime/purify.c b/src/runtime/purify.c
index ec43c3a..e033c7d 100644
--- a/src/runtime/purify.c
+++ b/src/runtime/purify.c
@@ -719,7 +719,7 @@ pscav(lispobj *addr, long nwords, boolean constant)
               case SIMPLE_VECTOR_WIDETAG:
                   if (HeaderValue(thing) == subtype_VectorValidHashing) {
                     struct hash_table *hash_table =
-                        (struct hash_table *)native_pointer(((lispobj *)thing)[2]);
+                        (struct hash_table *)native_pointer(addr[2]);
                     hash_table->needs_rehash_p = T;
                   }
                 count = 2;