fixed PR 8374

svn: r4794
2006-11-06 19:22:12 +00:00 · 2006-11-06 19:22:12 +00:00 · 43e7135380
commit 43e7135380
parent 102543cf6f
1 changed files with 1 additions and 1 deletions
--- a/collects/drscheme/private/debug.ss
+++ b/collects/drscheme/private/debug.ss
@ -350,7 +350,7 @@ profile todo:
              [send-out
               (λ (msg f) 
                 (if (port-writes-special? (current-error-port))
-                     (let ([snp (make-object string-snip% " in:")])
+                     (let ([snp (make-object string-snip% msg)])
                       (f snp)
                       (write-special snp (current-error-port)))
                     (display msg (current-error-port))))])