diff --git a/src/GF/GFCC/Linearize.hs b/src/GF/GFCC/Linearize.hs
index b7b419f7d..7147afdcf 100644
--- a/src/GF/GFCC/Linearize.hs
+++ b/src/GF/GFCC/Linearize.hs
@@ -61,7 +61,7 @@ compute mcfg lang args = comp where
 
   proj r p = case (r,p) of
     (_,     FV ts) -> FV $ lmap (proj r) ts
-    (FV ts, _    ) -> FV $ lmap (\t -> proj t r) ts
+    (FV ts, _    ) -> FV $ lmap (\t -> proj t p) ts
     (W s t, _)     -> kks (s ++ getString (proj t p))
     _              -> comp $ getField r (getIndex p)
 
diff --git a/src/GF/GFCC/doc/gfcc.txt b/src/GF/GFCC/doc/gfcc.txt
index 0eca6192c..6a78a62f6 100644
--- a/src/GF/GFCC/doc/gfcc.txt
+++ b/src/GF/GFCC/doc/gfcc.txt
@@ -363,6 +363,7 @@ compute gfcc lang args = comp where
 
   proj r p = case (r,p) of
     (_,     FV ts) -> FV $ Prelude.map (proj r) ts
+    (FV ts, _    ) -> FV $ Prelude.map (\t -> proj t p) ts
     (W s t, _)     -> kks (s ++ getString (proj t p))
     _              -> comp $ getField r (getIndex p)