diff --git a/racket/collects/racket/private/class-c-old.rkt b/racket/collects/racket/private/class-c-old.rkt
index 0a79022633..820cfebb33 100644
--- a/racket/collects/racket/private/class-c-old.rkt
+++ b/racket/collects/racket/private/class-c-old.rkt
@@ -22,9 +22,10 @@
          just-check-existence just-check-existence?
          build-internal-class/c internal-class/c-late-neg-proj
          class/c-internal-name-clauses
+         dynamic-object/c
+         ;; needed by TR
          base-object/c? build-object/c-type-name object/c-width-subtype?
-         object/c-common-methods-stronger? object/c-common-fields-stronger?
-         dynamic-object/c)
+         object/c-common-methods-stronger? object/c-common-fields-stronger?)
 
 ;; Shorthand contracts that treat the implicit object argument as if it were
 ;; contracted with any/c.
diff --git a/racket/collects/racket/private/class-internal.rkt b/racket/collects/racket/private/class-internal.rkt
index e54c4b8934..880c54ca8b 100644
--- a/racket/collects/racket/private/class-internal.rkt
+++ b/racket/collects/racket/private/class-internal.rkt
@@ -65,8 +65,6 @@
             (struct-out exn:fail:object)
             make-primitive-class
             class/c ->m ->*m ->dm case->m object/c instanceof/c
-            base-object/c? build-object/c-type-name object/c-width-subtype?
-            object/c-common-methods-stronger? object/c-common-fields-stronger?
             dynamic-object/c
             class-seal class-unseal