diff --git a/collects/tests/rackunit/check-test.rkt b/collects/tests/rackunit/check-test.rkt
index 4f994bb..4952d75 100644
--- a/collects/tests/rackunit/check-test.rkt
+++ b/collects/tests/rackunit/check-test.rkt
@@ -314,5 +314,12 @@
       (parameterize ([current-check-around (lambda (t) (set! x 'foo))])
                  (check-eq? 'a 'b))
       (check-eq? x
-                 'foo)))))
+                 'foo)))
 
+   (test-case
+    "current-check-handler is used by checks"
+    (check-eq? (let/ec escape
+                 (parameterize ([current-check-handler (lambda (e) (escape 'foo))])
+                   (check-eq? 'a 'b)))
+               'foo))
+   ))