diff --git a/collects/racunit/private/check.rkt b/collects/racunit/private/check.rkt
index 72ccf8f26b..2e504a532c 100644
--- a/collects/racunit/private/check.rkt
+++ b/collects/racunit/private/check.rkt
@@ -175,7 +175,7 @@
 
 (define-syntax define-binary-check
   (syntax-rules ()
-    ((_ (name expr1 expr2) expr ...)
+    [(_ (name expr1 expr2) expr ...)
      (define-check (name expr1 expr2)
        (with-check-info*
         (list (make-check-actual expr1)
@@ -184,8 +184,8 @@
           (let ((result (begin expr ...)))
             (if result
                 result
-                (fail-check)))))))
-    ((_ (name pred expr1 expr2))
+                (fail-check))))))]
+    [(_ (name pred expr1 expr2))
      (define-check (name expr1 expr2)
        (with-check-info*
         (list (make-check-actual expr1)
@@ -193,7 +193,7 @@
         (lambda ()
           (if (pred expr1 expr2)
               #t
-              (fail-check))))))))
+              (fail-check)))))]))
 
 (define-check (check-exn pred thunk)
   (let/ec succeed