diff --git a/collects/typed-scheme/private/prims.ss b/collects/typed-scheme/private/prims.ss
index e5840ecfb8..6f4784f167 100644
--- a/collects/typed-scheme/private/prims.ss
+++ b/collects/typed-scheme/private/prims.ss
@@ -288,6 +288,7 @@ This file defines two sorts of primitives. All of them are provided into any mod
 (define-syntax (require-typed-struct stx)
   (syntax-case stx (:)
     [(_ nm ([fld : ty] ...) lib)
+     (identifier? #'nm)
      (with-syntax* ([(struct-info maker pred sel ...) (build-struct-names #'nm (syntax->list #'(fld ...)) #f #t)]
                     [oty #'(Opaque pred)])
                    #'(begin