diff --git a/typed-racket-lib/typed-racket/utils/opaque-object.rkt b/typed-racket-lib/typed-racket/utils/opaque-object.rkt index 911c7dc7..c92390a1 100644 --- a/typed-racket-lib/typed-racket/utils/opaque-object.rkt +++ b/typed-racket-lib/typed-racket/utils/opaque-object.rkt @@ -81,7 +81,7 @@ (begin-for-syntax (define-syntax-class object/c-clause #:attributes (method-names method-ctcs field-names field-ctcs) - (pattern (field [name:id ctc:expr] ...) + (pattern ((~literal field) [name:id ctc:expr] ...) #:with field-names #'(list (quote name) ...) #:with field-ctcs #'(list ctc ...) #:with method-names #'null