diff --git a/src/GF/Speech/CFGToFiniteState.hs b/src/GF/Speech/CFGToFiniteState.hs
index 9e985d4d2..df4346d20 100644
--- a/src/GF/Speech/CFGToFiniteState.hs
+++ b/src/GF/Speech/CFGToFiniteState.hs
@@ -62,7 +62,7 @@ cfgToFA opts s = minimize $ compileAutomaton start $ makeSimpleRegular opts s
   where start = getStartCatCF opts s
 
 makeSimpleRegular :: Options -> StateGrammar -> CFRules
-makeSimpleRegular opts s = makeRegular $ cfgToCFRules s
+makeSimpleRegular opts s = makeRegular $ preprocess $ cfgToCFRules s
   where start = getStartCatCF opts s
         preprocess = fix (topDownFilter start . bottomUpFilter)
                      . removeCycles