diff --git a/racket/collects/racket/contract/private/orc.rkt b/racket/collects/racket/contract/private/orc.rkt
index 13db533fee..1dca65b0f3 100644
--- a/racket/collects/racket/contract/private/orc.rkt
+++ b/racket/collects/racket/contract/private/orc.rkt
@@ -93,7 +93,7 @@
       (cond 
        [(pred val) val]
        [(c-first-order val) (p-app val neg-party)]
-       [else (raise-none-or-matched blame val #f)]))))
+       [else (raise-none-or-matched blame val neg-party)]))))
 
 (define (blame-add-or-context blame)
   (blame-add-context blame "a part of the or/c of"))