diff --git a/collects/racket/contract/private/blame.rkt b/collects/racket/contract/private/blame.rkt
index 5e5cf3d077..5cdb913fd3 100644
--- a/collects/racket/contract/private/blame.rkt
+++ b/collects/racket/contract/private/blame.rkt
@@ -87,9 +87,13 @@
       [(blame-original? b)
        (string-append
         (format "self-contract violation: ~a\n" custom-message)
-        (format "  contract~a from ~a~a" 
+        (format "  contract~a from ~a~a blaming ~a~a" 
                 value-message 
                 positive-message
+                (if (regexp-match #rx"\n" positive-message)
+                    " "
+                    ",")
+                positive-message
                 (if (regexp-match #rx"\n" positive-message)
                     ""
                     "\n"))