diff --git a/collects/framework/private/main.rkt b/collects/framework/private/main.rkt
index a1e5c93942..b08e619d76 100644
--- a/collects/framework/private/main.rkt
+++ b/collects/framework/private/main.rkt
@@ -221,6 +221,8 @@
             '(struct
               local
                      
+              struct:
+              define:
               define-type
               match-define))
   (for-each (λ (x) 
@@ -250,10 +252,18 @@
                let/cc let/ec letcc catch
                let-syntax letrec-syntax fluid-let-syntax letrec-syntaxes+values
                
+               let: letrec: let*:
+               let-values: letrec-values: let*-values:
+               let/cc: let/ec:
+               lambda: λ:
+
                for for/list for/hash for/hasheq for/and for/or 
                for/lists for/first for/last for/fold
                for* for*/list for*/hash for*/hasheq for*/and for*/or 
                for*/lists for*/first for*/last for*/fold                 
+
+               for: for/list: for/or: for/lists: for/fold:
+               for*: for*/lists: do:
                
                kernel-syntax-case
                syntax-case syntax-case* syntax-rules syntax-id-rules