diff --git a/collects/framework/private/main.rkt b/collects/framework/private/main.rkt
index b70d6f85aa..ab94bf35b9 100644
--- a/collects/framework/private/main.rkt
+++ b/collects/framework/private/main.rkt
@@ -208,7 +208,10 @@
 (let ([hash-table (make-hasheq)])
   (for-each (λ (x) 
               (hash-set! hash-table x 'define))
-            '(struct local))
+            '(struct
+              local
+                     
+              define-type))
   (for-each (λ (x) 
               (hash-set! hash-table x 'begin))
             '(case-lambda
@@ -264,6 +267,8 @@
                with-output-to-file with-output-to-port 
 
 	       for-all
+               
+               type-case
 	       ))
   (preferences:set-default 
    'framework:tabify