From b16cb5a8dc35e2ff2b5df0ede4026a2ad44a7b8f Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 19 Oct 2019 22:20:19 -0700
Subject: [PATCH] Fix typo in earlier change.

---
 src/runtime/record.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/runtime/record.scm b/src/runtime/record.scm
index 8e14d58cc..bd4035383 100644
--- 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))))
 
-- 
2.25.1