diff --git a/collects/rackunit/private/check.rkt b/collects/rackunit/private/check.rkt
index f4bb83d..7574904 100644
--- a/collects/rackunit/private/check.rkt
+++ b/collects/rackunit/private/check.rkt
@@ -171,7 +171,9 @@
                  (name
                   (identifier? #'name)
                   (syntax/loc stx
-                    check-secret-name)))))
+                    (λ (formal ...) (check-secret-name formal ... 
+                                                       #:location (quote loc) 
+                                                       #:expression (quote (name actual ...)))))))))
            ))))))
 
 (define-syntax define-simple-check