diff --git a/collects/framework/private/main.ss b/collects/framework/private/main.ss
index 60179e43..defd249d 100644
--- a/collects/framework/private/main.ss
+++ b/collects/framework/private/main.ss
@@ -104,6 +104,7 @@
 	(for-each (lambda (x) 
 		    (hash-table-put! hash-table x 'define))
 		  '(define defmacro define-macro
+                     match-lambda match-lambda*
                      define-syntax-set
 		     define-values
                      define/public define/override define/private define/field
@@ -129,7 +130,6 @@
 
                      
                      lambda let let* letrec recur
-                     match-lambda match-lambda*
                      letrec-values
                      with-syntax
 		     with-continuation-mark