Fix typo in earlier change.

diff --git a/src/runtime/record.scm b/src/runtime/record.scm
index 8e14d58cc56877efdbf29e35979d9609a8133e22..bd403538335bcc3004187d71b95a7eaa3bb78fcc 100644 (file)
--- a/src/runtime/record.scm
+++ b/src/runtime/record.scm
@@ -241,9 +241,9 @@ USA.
        (%pred-check-marker 0 marker3 object)
        (let loop ((type (%record-type-parent type3)))
         (if type
-            (and (check-type (%record-type-start-index type)
-                             (%record-type-instance-marker type)
-                             object)
+            (and (%pred-check-marker (%record-type-start-index type)
+                                     (%record-type-instance-marker type)
+                                     object)
                  (loop (%record-type-parent type)))
             #t))))