diff --git a/src-3.0/GF/Infra/Option.hs b/src-3.0/GF/Infra/Option.hs
index a17613f7f..2d34ae441 100644
--- a/src-3.0/GF/Infra/Option.hs
+++ b/src-3.0/GF/Infra/Option.hs
@@ -157,7 +157,8 @@ parseModuleOptions args
 -- | Pretty-print the module options that are preserved in .gfo files.
 moduleOptionsGFO :: ModuleOptions -> [(String,String)]
 moduleOptionsGFO (ModuleOptions o) = 
-      maybe [] (\l -> [("language",l)]) (optSpeechLanguage mfs)
+         maybe [] (\x -> [("language",x)]) (optSpeechLanguage mfs)
+      ++ maybe [] (\x -> [("startcat",x)]) (optStartCat mfs)
   where mfs = o defaultModuleFlags