diff --git a/collects/framework/private/color.rkt b/collects/framework/private/color.rkt
index b64be91b..87ad45f5 100644
--- a/collects/framework/private/color.rkt
+++ b/collects/framework/private/color.rkt
@@ -30,7 +30,7 @@ added get-regions
 (init-depend framework:text^ framework:mode^)
 
 (define (should-color-type? type)
-  (not (memq type '(white-space no-color))))
+  (not (memq type '(no-color))))
 
 (define (make-data type mode backup-delta) 
   (if (zero? backup-delta)
diff --git a/collects/framework/private/racket.rkt b/collects/framework/private/racket.rkt
index dc5e36c1..92f1af66 100644
--- a/collects/framework/private/racket.rkt
+++ b/collects/framework/private/racket.rkt
@@ -328,7 +328,10 @@
                                 [(sexp-comment) 'comment]
                                 [else sym]))
 (define sn-hash (make-hasheq))
-(define (short-sym->style-name sym)
+(define (short-sym->style-name _sym)
+  (define sym (if (eq? _sym 'white-space)
+                  'parenthesis
+                  _sym))
   (hash-ref sn-hash sym
             (λ ()
               (let ([s (format "framework:syntax-color:scheme:~a"