diff --git a/syndicate/test-implementation.rkt b/syndicate/test-implementation.rkt
index 38ad31e..c9cbcf8 100644
--- a/syndicate/test-implementation.rkt
+++ b/syndicate/test-implementation.rkt
@@ -187,7 +187,7 @@
                                   (color NORMAL)))
       (let ((description
              (match maybe-check
-               [(? procedure?) (format "~a" check)]
+               [(? procedure?) (format "~a" maybe-check)]
                [(check #f description _thunk) (format "~a" description)]
                [(check check-loc description _thunk) (format "~a (~a)" description check-loc)])))
         (match result