diff --git a/collects/framework/splash.rkt b/collects/framework/splash.rkt
index 42bd7717..9d47d090 100644
--- a/collects/framework/splash.rkt
+++ b/collects/framework/splash.rkt
@@ -155,14 +155,13 @@
      (send (get-gauge) set-range splash-max-width)
      (send splash-tlw set-label splash-title)
      
-     #; ;; commented out because dialogs don't accept set-icon
      (when frame-icon
        (if (pair? frame-icon)
-         (let ([small (car icon)]
-               [large (cdr icon)])
+         (let ([small (car frame-icon)]
+               [large (cdr frame-icon)])
            (send splash-tlw set-icon small (send small get-loaded-mask) 'small)
            (send splash-tlw set-icon large (send large get-loaded-mask) 'large))
-         (send splash-tlw set-icon frame-icon (send icon get-loaded-mask) 'both)))
+         (send splash-tlw set-icon frame-icon (send frame-icon get-loaded-mask) 'both)))
      
      (cond
        [(or (path? splash-draw-spec)
diff --git a/collects/mred/private/mrtop.rkt b/collects/mred/private/mrtop.rkt
index 4fb5a7f7..92664d70 100644
--- a/collects/mred/private/mrtop.rkt
+++ b/collects/mred/private/mrtop.rkt
@@ -85,6 +85,10 @@
 	[can-exit? (lambda () (can-close?))]
 	[on-exit (lambda () (on-close) (show #f))]
 	[on-activate (lambda (x) (void))]
+        [set-icon (case-lambda 
+		   [(i) (send wx set-icon i)]
+		   [(i b) (send wx set-icon i b)]
+		   [(i b l?) (send wx set-icon i b l?)])]
 	[center (entry-point
 		 (case-lambda
 		  [() (send wx center 'both)]
@@ -185,11 +189,7 @@
 	[set-status-text (lambda (s) (do-set-status-text s))]
 	[has-status-line? (lambda () status-line?)]
 	[iconize (entry-point (lambda (on?) (send wx iconize on?)))]
-	[is-iconized? (entry-point (lambda () (send wx iconized?)))]
-	[set-icon (case-lambda 
-		   [(i) (send wx set-icon i)]
-		   [(i b) (send wx set-icon i b)]
-		   [(i b l?) (send wx set-icon i b l?)])]
+	[is-iconized? (entry-point (lambda () (send wx iconized?)))]	
 	[maximize (entry-point (lambda (on?) (send wx position-for-initial-show) (send wx maximize on?)))]
         [is-maximized? (entry-point (lambda () (send wx is-maximized?)))]
 	[get-menu-bar (entry-point (lambda () (let ([mb (send wx get-the-menu-bar)])