From 7039dae23a2a0e1360475c1688159a986987cf1d Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Tue, 2 Oct 2001 03:05:47 +0000
Subject: [PATCH] ...

original commit: e089b17782493903ae3d2c882ef2c4742e4ad424
---
 collects/framework/gui-utils.ss    | 11 -----------
 collects/framework/private/main.ss |  2 +-
 2 files changed, 1 insertion(+), 12 deletions(-)

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