diff --git a/src/GF/GFCC/Raw/ConvertGFCC.hs b/src/GF/GFCC/Raw/ConvertGFCC.hs
index b5bf47e1b..96a66f151 100644
--- a/src/GF/GFCC/Raw/ConvertGFCC.hs
+++ b/src/GF/GFCC/Raw/ConvertGFCC.hs
@@ -46,7 +46,7 @@ toGFCC (Grm [
       App (CId "param") params
       ]) = (lang, 
     Concr {
-     cflags       = fromAscList [(f,v) | App f [AStr v] <- afls],
+     cflags       = fromAscList [(f,v) | App f [AStr v] <- fls],
      lins         = fromAscList [(f,toTerm v) | App f [v] <- ls],  
      opers        = fromAscList [(f,toTerm v) | App f [v] <- ops],  
      lincats      = fromAscList [(f,toTerm v) | App f [v] <- lincs],