diff --git a/collects/typed-racket/optimizer/dead-code.rkt b/collects/typed-racket/optimizer/dead-code.rkt
index bd5142558a..d60b84f41b 100644
--- a/collects/typed-racket/optimizer/dead-code.rkt
+++ b/collects/typed-racket/optimizer/dead-code.rkt
@@ -11,7 +11,7 @@
 
 (define-syntax-class predicate
   #:literals (flvector? fxvector? exact-integer? fixnum? flonum? vector? string? bytes?)
-  [pattern (~and x:id (~or flvector? exact-integer? fixnum? flonum? vector? fxvector?))])
+  [pattern (~and x:id (~or flvector? fxvector? exact-integer? fixnum? flonum? vector? string? bytes?))])
 
 (define (pure? stx)
   (syntax-parse stx