diff --git a/collects/framework/private/main.ss b/collects/framework/private/main.ss
index 7872d770..98121e8f 100644
--- a/collects/framework/private/main.ss
+++ b/collects/framework/private/main.ss
@@ -150,7 +150,8 @@
                      class100 class100* class100-asi class100-asi* class100*/names
                      rec
                      make-object mixin
-                     define-some do opt-lambda send*
+                     define-some do opt-lambda
+		     send* with-method
                      define-record
                      local catch shared
                      unit/sig unit/lang