diff --git a/collects/framework/private/color-prefs.ss b/collects/framework/private/color-prefs.ss
index 668a8e64..9778b4bb 100644
--- a/collects/framework/private/color-prefs.ss
+++ b/collects/framework/private/color-prefs.ss
@@ -324,11 +324,15 @@
            (new button%
                 [label (string-constant white-on-black-color-scheme)]
                 [parent hp]
-                [callback (λ (x y) (preferences:set 'framework:white-on-black? #t))])
+                [callback (λ (x y) 
+                            (preferences:set 'framework:white-on-black? #t)
+                            (white-on-black))])
            (new button%
                 [label (string-constant black-on-white-color-scheme)]
                 [parent hp]
-                [callback (λ (x y) (preferences:set 'framework:white-on-black? #f))]))))))
+                [callback (λ (x y) 
+                            (preferences:set 'framework:white-on-black? #f)
+                            (black-on-white))]))))))
   
   
   (define (build-text-foreground-selection-panel parent pref-sym style-name example-text)
diff --git a/collects/framework/private/main.ss b/collects/framework/private/main.ss
index 2dfbe3e8..b4f061ff 100644
--- a/collects/framework/private/main.ss
+++ b/collects/framework/private/main.ss
@@ -51,11 +51,6 @@
                            (λ (x) (and (list? x) (andmap string? x))))
   
   (preferences:set-default 'framework:white-on-black? #f boolean?)
-  (preferences:add-callback 'framework:white-on-black? 
-                            (λ (p v)
-                              (if v
-                                  (color-prefs:white-on-black)
-                                  (color-prefs:black-on-white))))
   
   (preferences:set-default 'framework:case-sensitive-search?
                            #f