diff --git a/collects/drscheme/private/debug.ss b/collects/drscheme/private/debug.ss
index f18fc02cd7..a17f0b9d47 100644
--- a/collects/drscheme/private/debug.ss
+++ b/collects/drscheme/private/debug.ss
@@ -997,10 +997,11 @@ profile todo:
       (super-new)))
   
   (define test-covered-style-delta (make-object style-delta%))
-  (send test-covered-style-delta set-delta-foreground "forest green")
-  
   (define test-not-covered-style-delta (make-object style-delta%))
-  (send test-not-covered-style-delta set-delta-foreground "firebrick")
+  
+  ;; test colors chosen to try to be color-blindness friendly
+  (send test-covered-style-delta set-delta-foreground "forest green")
+  (send test-not-covered-style-delta set-delta-foreground "maroon")
   
   (define erase-test-coverage-style-delta (make-object style-delta% 'change-normal-color))