diff --git a/collects/mzlib/private/contract-ds.ss b/collects/mzlib/private/contract-ds.ss
index 5371e9c0c6..0e679abfc6 100644
--- a/collects/mzlib/private/contract-ds.ss
+++ b/collects/mzlib/private/contract-ds.ss
@@ -98,7 +98,7 @@ it around flattened out.
              (define-syntax name (list-immutable #'struct:-name 
                                                  #'struct-maker 
                                                  #'predicate
-                                                 (list-immutable #'selectors ...)
+                                                 (reverse (list-immutable #'selectors ...))
                                                  (list-immutable #,@(map (λ (x) #f) (syntax->list #'(selectors ...))))
                                                  #t))