contract violation expected: real?

Question

I\'m running the following test :

(define-check (check-equal-with-exn? val thunk)
  (with-handlers
      ([exn:fail? (lambda (exn)
                    (fail-check