diff --git a/collects/typed-scheme/private/prims.ss b/collects/typed-scheme/private/prims.ss
index 6bc35521..b3a36458 100644
--- a/collects/typed-scheme/private/prims.ss
+++ b/collects/typed-scheme/private/prims.ss
@@ -343,7 +343,7 @@ This file defines two sorts of primitives. All of them are provided into any mod
                                             (list #'struct-info
                                                   #'maker
                                                   #'pred
-                                                  (list #'sel ...)
+                                                  (reverse (list #'sel ...))
                                                   (list mut ...)
                                                   #f))))
                        #,(internal #'(define-typed-struct-internal nm ([fld : ty] ...) #:type-only))