diff --git a/collects/macro-debugger/syntax-browser/widget.ss b/collects/macro-debugger/syntax-browser/widget.ss
index 7fa33df..938fd92 100644
--- a/collects/macro-debugger/syntax-browser/widget.ss
+++ b/collects/macro-debugger/syntax-browser/widget.ss
@@ -114,12 +114,12 @@
                                                    (send -text add-arrow
                                                          (car id-r) (cdr id-r)
                                                          (car binder-r) (cdr binder-r)
-                                                         "blue"))
+                                                         "purple"))
                                                  (send range get-ranges id)))
                                      (send range get-ranges binder)))))
                               (send colorer get-identifier-list))))
                 colorer)))
-                    
+          
           (define/public (add-separator)
             (with-unlock -text
               (send* -text