diff --git a/collects/scheme/private/class-internal.ss b/collects/scheme/private/class-internal.ss
index 1902655045..debc069284 100644
--- a/collects/scheme/private/class-internal.ss
+++ b/collects/scheme/private/class-internal.ss
@@ -21,7 +21,9 @@
   ;;  spec for external interface
   ;;--------------------------------------------------------------------
  
-  (provide provide-public-names)
+  (provide provide-public-names 
+           ;; needed for Typed Scheme
+           (protect-out do-make-object find-method/who))
   (define-syntax (provide-public-names stx)
     #'(provide class class* class/derived
                define-serializable-class define-serializable-class*