From 5e4386ba139f02fedbf711973e97dd0328bf57d9 Mon Sep 17 00:00:00 2001
From: Stevie Strickland <sstrickl@racket-lang.org>
Date: Fri, 30 Apr 2010 09:51:35 -0400
Subject: [PATCH] Change legacy commands to correctly use negative blame also
 for user blame.

---
 collects/racket/contract/private/legacy.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/racket/contract/private/legacy.rkt b/collects/racket/contract/private/legacy.rkt
index d912b62e41..86270cdcbd 100644
--- a/collects/racket/contract/private/legacy.rkt
+++ b/collects/racket/contract/private/legacy.rkt
@@ -22,7 +22,7 @@
                      (unpack-blame pos)
                      "<<unknown party>>"
                      #t
-                     name)
+                     "<<unknown party>>")
          x
          fmt
          args))
@@ -60,7 +60,7 @@
                         (unpack-blame (if original? pos neg))
                         (unpack-blame (if original? neg pos))
                         original? 
-                        name)))))
+                        (unpack-blame (if original? neg pos)))))))
 
 (define (legacy-property name)
   (define-values [ prop pred get ]