diff --git a/collects/framework/decorated-editor-snip.ss b/collects/framework/decorated-editor-snip.ss
index 10c8f1c2..923daf54 100644
--- a/collects/framework/decorated-editor-snip.ss
+++ b/collects/framework/decorated-editor-snip.ss
@@ -173,6 +173,9 @@
           (top-margin top-margin)
           (left-margin left-margin)))
       
+      (inherit use-style-background)
+      (use-style-background #t)
+      
       (reset-min-sizes)))
   
   (define decorated-editor-snip%
@@ -190,15 +193,14 @@
       (define/override write
         (λ (stream-out)
           (send (get-editor) write-to-file stream-out 0 'eof)))
-
+      
       (define/override (copy)
         (let ([snip (make-snip)])
           (send snip set-editor (send (get-editor) copy-self))
           (send snip set-style (get-style))
           snip))
       
-        (super-new
-          (editor (make-editor)))))
+      (super-new [editor (make-editor)])))
   
   (define decorated-editor-snipclass%
     (class snip-class%
diff --git a/collects/framework/doc.txt b/collects/framework/doc.txt
index 8f65c128..145a8a3b 100644
--- a/collects/framework/doc.txt
+++ b/collects/framework/doc.txt
@@ -7,8 +7,11 @@ _hierlist-editor-snip.ss_ defines two classes:
 
 > decorated-editor-snip%, derived from editor-snip%
    
-This class operated just like a regular editor snip, except
-that it has a color and an icon in the top right hand corner.
+This class operated just like a regular editor snip, except:
+
+  - it has a color and an icon in the top right hand corner
+  - it calls the use-style-background with #t when it
+    is initialized.
 
 Overridable methods:
 
diff --git a/collects/framework/preferences.ss b/collects/framework/preferences.ss
index 4d8cf83c..462e8229 100644
--- a/collects/framework/preferences.ss
+++ b/collects/framework/preferences.ss
@@ -228,9 +228,7 @@ the state transitions / contracts are:
                            (begin 
                              (v p value)
                              (cons callback (loop (cdr callbacks))))
-                           (begin
-                             (printf "lost a ~s callback\n" p)
-                             (loop (cdr callbacks)))))]
+                           (loop (cdr callbacks))))]
                     [else
                      (cb p value)
                      (cons callback (loop (cdr callbacks)))]))]))])
diff --git a/collects/framework/private/main.ss b/collects/framework/private/main.ss
index b342c821..3b9bfbb2 100644
--- a/collects/framework/private/main.ss
+++ b/collects/framework/private/main.ss
@@ -86,7 +86,7 @@
               (* 3/4 256)
               (- (* 7/8 256) 1))])
      (make-object color% gray-level gray-level gray-level))
-   (make-object color% 50 50 50))
+   (make-object color% 30 30 30))
   
   (preferences:set-default 'framework:recently-opened-files/pos 
                            null