diff --git a/collects/typed-racket/typecheck/tc-app/tc-app-eq.rkt b/collects/typed-racket/typecheck/tc-app/tc-app-eq.rkt
index 1a817035..97302903 100644
--- a/collects/typed-racket/typecheck/tc-app/tc-app-eq.rkt
+++ b/collects/typed-racket/typecheck/tc-app/tc-app-eq.rkt
@@ -40,7 +40,7 @@
 ;; identifier expr expr -> tc-results
 (define (tc/eq comparator v1 v2)
   (define (eq?-able e) (or (boolean? e) (keyword? e) (symbol? e) (eof-object? e)))
-  (define (eqv?-able e) (or (eq?-able e) (number? e)))
+  (define (eqv?-able e) (or (eq?-able e) (number? e) (char? e)))
   (define (equal?-able e) #t)
   (define (ok? val)
     (define-syntax-rule (alt nm pred ...)