diff --git a/collects/games/games.ss b/collects/games/games.ss
index 905519bae2..79545fa981 100644
--- a/collects/games/games.ss
+++ b/collects/games/games.ss
@@ -2,7 +2,6 @@
   (require (lib "mred.ss" "mred")
 	   (lib "class.ss")
            (lib "unit.ss")
-	   (lib "class100.ss")
 	   (lib "list.ss")
            (lib "getinfo.ss" "setup")
 	   (lib "bitmap-label.ss" "mrlib")
diff --git a/collects/mred/private/app.ss b/collects/mred/private/app.ss
index dbc04ff393..188950103c 100644
--- a/collects/mred/private/app.ss
+++ b/collects/mred/private/app.ss
@@ -1,6 +1,5 @@
 (module app mzscheme
   (require (lib "class.ss")
-	   (lib "class100.ss")
 	   (prefix wx: "kernel.ss")
 	   "lock.ss"
 	   "helper.ss"
diff --git a/collects/mred/private/fontdialog.ss b/collects/mred/private/fontdialog.ss
index 79c108086a..94ba1fa5ea 100644
--- a/collects/mred/private/fontdialog.ss
+++ b/collects/mred/private/fontdialog.ss
@@ -1,6 +1,5 @@
 (module fontdialog mzscheme
   (require (lib "class.ss")
-	   (lib "class100.ss")
 	   (lib "etc.ss")
 	   (lib "list.ss")
 	   (prefix wx: "kernel.ss")
diff --git a/collects/mred/private/moredialogs.ss b/collects/mred/private/moredialogs.ss
index 70b462b395..c72d35111b 100644
--- a/collects/mred/private/moredialogs.ss
+++ b/collects/mred/private/moredialogs.ss
@@ -1,6 +1,5 @@
 (module moredialogs mzscheme
   (require (lib "class.ss")
-	   (lib "class100.ss")
 	   (lib "etc.ss")
 	   (lib "list.ss")
 	   (prefix wx: "kernel.ss")
@@ -284,10 +283,10 @@
 	  (letrec ([ok? #f]
 		   [f (make-object dialog% "Choose Color" parent)]
 		   [done (lambda (ok) (lambda (b e) (set! ok? ok) (send f show #f)))]
-		   [canvas (make-object (class100 canvas% ()
-					  (override
-					    [on-paint (lambda () (repaint #f #f))])
-					  (sequence (super-init f))))]
+		   [canvas (make-object (class canvas%
+                                          (define/override (on-paint)
+                                            (repaint #f #f))
+					  (super-new [parent f])))]
 		   [p (make-object vertical-pane% f)]
 		   [repaint (lambda (s e)
 			      (let ([c (make-object wx:color% 
diff --git a/collects/mred/private/wxgroupbox.ss b/collects/mred/private/wxgroupbox.ss
index d8b9d95d4a..2162754bd1 100644
--- a/collects/mred/private/wxgroupbox.ss
+++ b/collects/mred/private/wxgroupbox.ss
@@ -1,6 +1,5 @@
 (module wxgroupbox mzscheme
   (require (lib "class.ss")
-	   (lib "class100.ss")
 	   (prefix wx: "kernel.ss")
 	   "lock.ss"
 	   "wx.ss"
diff --git a/collects/mred/private/wxtabgroup.ss b/collects/mred/private/wxtabgroup.ss
index 0381e3a079..0cc182bc11 100644
--- a/collects/mred/private/wxtabgroup.ss
+++ b/collects/mred/private/wxtabgroup.ss
@@ -1,6 +1,5 @@
 (module wxtabgroup mzscheme
   (require (lib "class.ss")
-	   (lib "class100.ss")
 	   (prefix wx: "kernel.ss")
 	   "lock.ss"
 	   "wx.ss"