diff --git a/racket/src/cs/bootstrap/record.rkt b/racket/src/cs/bootstrap/record.rkt
index 6f386fbb6e..c138cf1f48 100644
--- a/racket/src/cs/bootstrap/record.rkt
+++ b/racket/src/cs/bootstrap/record.rkt
@@ -202,8 +202,9 @@
       (let ()
         (define-values (r-name init-cnt auto-cnt ref set immutables super skipped?)
           (struct-type-info rtd))
-        (or (not super)
-            (base-rtd-subtype-rtd? super)))))
+        (if super
+            (base-rtd-subtype-rtd? super)
+            #f))))
 
 ;; `i` does not count parent fields
 (define (record-accessor rtd i [name #f])