diff --git a/src/GF/UseGrammar/Transfer.hs b/src/GF/UseGrammar/Transfer.hs
index 38b8b489a..5d62f4385 100644
--- a/src/GF/UseGrammar/Transfer.hs
+++ b/src/GF/UseGrammar/Transfer.hs
@@ -57,6 +57,7 @@ core2exp e = case e of
   T.EInteger i -> EInt $ fromInteger i
   T.EMeta _  -> uExp  -- meta symbol 0, refreshed by GF
  where
+   var :: T.CIdent -> Ident
    var (T.CIdent x) = zIdent x