diff --git a/pkgs/racket-pkgs/racket-test/tests/racket/contract/set.rkt b/pkgs/racket-pkgs/racket-test/tests/racket/contract/set.rkt
index c641e8634d..c203fcfd1a 100644
--- a/pkgs/racket-pkgs/racket-test/tests/racket/contract/set.rkt
+++ b/pkgs/racket-pkgs/racket-test/tests/racket/contract/set.rkt
@@ -13,9 +13,9 @@
 
   (test/pos-blame
    'set/c2
-   '(contract (set/c integer?)
-              (set #t)
-              'pos 'neg))
+   '(set-first (contract (set/c integer?)
+                         (set #t)
+                         'pos 'neg)))
 
   (test/pos-blame
    'set/c3
diff --git a/racket/collects/racket/set.rkt b/racket/collects/racket/set.rkt
index a0ee57d89a..e0f7c5cf0a 100644
--- a/racket/collects/racket/set.rkt
+++ b/racket/collects/racket/set.rkt
@@ -96,10 +96,10 @@
            (unless (set-equal? x)
              (raise-blame-error b x "expected an equal?-based set"))]
           [(eqv)
-           (unless (set-equal? x)
+           (unless (set-eqv? x)
              (raise-blame-error b x "expected an eqv?-based set"))]
           [(eq)
-           (unless (set-equal? x)
+           (unless (set-eq? x)
              (raise-blame-error b x "expected an eq?-based set"))])
         (case kind
           [(mutable-or-weak)
@@ -109,7 +109,7 @@
            (unless (set-mutable? x)
              (raise-blame-error b x "expected a mutable set"))]
           [(weak)
-           (unless (set-mutable? x)
+           (unless (set-weak? x)
              (raise-blame-error b x "expected a weak set"))]
           [(immutable)
            (unless (set-immutable? x)