From 6fe31e9ff4b350d9409f3ec2fb70cefdc64ffd57 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Mon, 27 Aug 2007 15:18:23 +0000
Subject: [PATCH] fixed PR 8887

svn: r7194

original commit: 7fc8d8c8883df0183e1aeea67498125f0371a5f2
---
 collects/framework/private/color-prefs.ss | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/collects/framework/private/color-prefs.ss b/collects/framework/private/color-prefs.ss
index e516e7fd..b95f34e5 100644
--- a/collects/framework/private/color-prefs.ss
+++ b/collects/framework/private/color-prefs.ss
@@ -21,12 +21,15 @@
     (opt-lambda (parent 
                  pref-sym
                  style-name
-                 example-text
-                 [update-style-delta
-                  (λ (func)
-                    (let ([delta (preferences:get pref-sym)])
-                      (func delta)
-                      (preferences:set pref-sym delta)))])
+                 example-text)
+      (define (update-style-delta func)
+        (func working-delta)
+        (let ([nd (new style-delta%)])
+          (send nd copy working-delta)
+          (preferences:set pref-sym nd)))
+      (define working-delta (let ([sd (new style-delta%)])
+                              (send sd copy (preferences:get pref-sym))
+                              sd))
       (define hp (new horizontal-panel%
                       [parent parent]
                       [style '(border)]