From 78ac4d3d27f47a6c9e6e10b0e3543981f443516b Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sat, 7 Jan 2012 15:02:55 -0600
Subject: [PATCH] fix syntax error message display for new way that drracket's
 ports handle printing of snips

---
 collects/drracket/private/debug.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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