diff --git a/collects/drracket/private/debug.rkt b/collects/drracket/private/debug.rkt
index 25e88bbfe1..ae1434fe4c 100644
--- a/collects/drracket/private/debug.rkt
+++ b/collects/drracket/private/debug.rkt
@@ -521,8 +521,8 @@ profile todo:
                (send-out (format "~s" (syntax->datum expr))
                          (λ (snp)
                            (send snp set-style
-                                 (send the-style-list find-or-create-style
-                                       (send snp get-style)
+                                 (send (editor:get-standard-style-list) find-or-create-style
+                                       (send (editor:get-standard-style-list) find-named-style "Standard")
                                        error-text-style-delta)))))]
             [exprs (exn:fail:syntax-exprs exn)])
         (cond