diff --git a/src/runtime/haskell/PGF/Linearize.hs b/src/runtime/haskell/PGF/Linearize.hs
index 39c59cd3f..d24e98d38 100644
--- a/src/runtime/haskell/PGF/Linearize.hs
+++ b/src/runtime/haskell/PGF/Linearize.hs
@@ -50,7 +50,7 @@ firstLin (_,arr)
 
 -- | Creates a table from feature name to linearization. 
 -- The outher list encodes the variations
-tabularLinearizes :: PGF -> CId -> Expr -> [[(String,String)]]
+tabularLinearizes :: PGF -> Language -> Expr -> [[(String,String)]]
 tabularLinearizes pgf lang e = map cnv (linTree pgf lang e)
   where
     cnv ((cat,_),lin) = zip (lbls cat) $ map (unwords . concatMap flattenBracketedString . snd . untokn "") (elems lin)