diff --git a/collects/rackunit/private/check.rkt b/collects/rackunit/private/check.rkt
index 75749047ac..3a059a4987 100644
--- a/collects/rackunit/private/check.rkt
+++ b/collects/rackunit/private/check.rkt
@@ -171,9 +171,15 @@
                  (name
                   (identifier? #'name)
                   (syntax/loc stx
-                    (λ (formal ...) (check-secret-name formal ... 
-                                                       #:location (quote loc) 
-                                                       #:expression (quote (name actual ...)))))))))
+                    (case-lambda
+                      [(formal ...)
+                       (check-secret-name formal ... 
+                                          #:location (quote loc) 
+                                          #:expression (quote (name actual ...)))]
+                      [(formal ... msg)
+                       (check-secret-name formal ... msg
+                                          #:location (quote loc) 
+                                          #:expression (quote (name actual ...)))]))))))
            ))))))
 
 (define-syntax define-simple-check