diff --git a/collects/framework/gui-utils.ss b/collects/framework/gui-utils.ss
index 152fa257..aa219e09 100644
--- a/collects/framework/gui-utils.ss
+++ b/collects/framework/gui-utils.ss
@@ -15,14 +15,3 @@
       (export (unit gui-utils)))
     #f
     mred^))
-
-#|
-(require gui-utils)
-(define f (make-object frame% "frame" #f 300 600))
-(define lb (instantiate gui-utils:alphabetic-list-box% ()
-             (label #f)
-             (parent f)
-             (callback void)
-             (choices '("abcz" "b" "c" "d" "e" "f" "xbcdefghi"))))
-(send f show #t)
-|#
\ No newline at end of file
diff --git a/collects/framework/private/main.ss b/collects/framework/private/main.ss
index 26988f38..5c1b7070 100644
--- a/collects/framework/private/main.ss
+++ b/collects/framework/private/main.ss
@@ -62,7 +62,7 @@
 		    (hash-table-put! hash-table (add-#% x) 'lambda)
 		    (hash-table-put! hash-table x 'lambda))
 		  '(
-                    instantiate
+                    instantiate super-instantiate
                     lambda let let* letrec recur
                      with-syntax
                      module