From fe721eaef420168176224ec4997ed5891e964450 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Thu, 21 Mar 2013 10:21:48 -0500
Subject: [PATCH] adjust options tests to match new multi-party blame printouts

---
 collects/tests/unstable/options.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/tests/unstable/options.rkt b/collects/tests/unstable/options.rkt
index 43cbaf3d7b..871e67b35b 100644
--- a/collects/tests/unstable/options.rkt
+++ b/collects/tests/unstable/options.rkt
@@ -47,10 +47,10 @@
 
 (define (has-proper-blame? blame msg [extra ""])
   (define options-preface 
-    (regexp-quote " -- multiple blame parties due to option contract transfers --\n"))
+    (regexp-quote "blaming multiple parties:"))
   (define (multi-blame->regexp blame)
     (foldr 
-     (λ (fst rst) (string-append (format "~a\n" fst) rst))
+     (λ (fst rst) (string-append (format "\n  ~a" fst) rst))
      ""
      blame))
   (define reg