diff --git a/collects/scheme/private/class-internal.ss b/collects/scheme/private/class-internal.ss
index 2784d61608..ca2f65e767 100644
--- a/collects/scheme/private/class-internal.ss
+++ b/collects/scheme/private/class-internal.ss
@@ -2576,10 +2576,10 @@
                                 (make-vector method-width))]
              [field-pub-width (class-field-pub-width cls)]
              [field-ht (class-field-ht cls)]
-             [int-field-refs (if (null? (class/c-inherits ctc))
+             [int-field-refs (if (null? (class/c-inherit-fields ctc))
                                  (class-int-field-refs cls)
                                  (make-vector field-pub-width))]
-             [int-field-sets (if (null? (class/c-inherits ctc))
+             [int-field-sets (if (null? (class/c-inherit-fields ctc))
                                  (class-int-field-sets cls)
                                  (make-vector field-pub-width))]
              [ext-field-refs (if (null? (class/c-fields ctc))