diff --git a/src/compiler/GF/Compile/GrammarToPGF.hs b/src/compiler/GF/Compile/GrammarToPGF.hs
index 211535b41..6a0c90db7 100644
--- a/src/compiler/GF/Compile/GrammarToPGF.hs
+++ b/src/compiler/GF/Compile/GrammarToPGF.hs
@@ -156,7 +156,7 @@ reorder abs cg =
             | cnc <- M.allConcretes cg abs, let (cflags,cdefs) = concr cnc]
   where
     aflags = 
-      concatOptions [M.flags mo | (_,mo) <- M.modules cg, M.isModAbs mo]
+      concatOptions (reverse [M.flags mo | (_,mo) <- M.modules cg, M.isModAbs mo])
 
     adefs = 
       Map.fromList (predefADefs ++ Look.allOrigInfos cg abs)