diff --git a/src/compiler/GF/Compile/GeneratePMCFG.hs b/src/compiler/GF/Compile/GeneratePMCFG.hs
index 6037208e8..afc409654 100644
--- a/src/compiler/GF/Compile/GeneratePMCFG.hs
+++ b/src/compiler/GF/Compile/GeneratePMCFG.hs
@@ -497,7 +497,7 @@ emptyGrammarEnv gr (m,mo) =
       | cat == cString = (index,(fidString,fidString,CRec [(theLinLabel,Identity (CStr 0))]))
       | cat == cInt    = (index,(fidInt,   fidInt,   CRec [(theLinLabel,Identity (CStr 0))]))
       | cat == cFloat  = (index,(fidFloat, fidFloat, CRec [(theLinLabel,Identity (CStr 0))]))
-      | cat == cVar    = (index,(fidFloat, fidFloat, CStr 0))
+      | cat == cVar    = (index,(fidVar,   fidVar,   CStr 0))
       | otherwise      = (index+size,(index,index+size-1,schema))
       where
         ((_,size),schema) = compute (0,1) ctype