diff --git a/collects/drscheme/private/debug.ss b/collects/drscheme/private/debug.ss
index 60dc2c718f..116866e48e 100644
--- 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))))])