make the 'failed to click on the radio box' error message more helpful

collects/framework/test.rkt

@@ -424,6 +424,7 @@
 
 ;; entry-matches : string | regexp -> radio-box -> boolean
 (define (entry-matches name)
+  (procedure-rename
    (λ (rb)
      (let loop ([n (send rb get-number)])
        (cond
@@ -438,7 +439,11 @@
                   [(regexp? name)
                    (or (regexp-match name itm)
                        (regexp-match name pln-itm))])
-               (loop (- n 1))))]))))
+                (loop (- n 1))))])))
+   (string->symbol
+    (if (regexp? name)
+        (object-name name)
+        name))))
 
 ;;; CHOICE