diff --git a/src/GF/Compile/GrammarToGFCC.hs b/src/GF/Compile/GrammarToGFCC.hs
index db5b4376e..5d2b1b408 100644
--- a/src/GF/Compile/GrammarToGFCC.hs
+++ b/src/GF/Compile/GrammarToGFCC.hs
@@ -358,6 +358,7 @@ paramValues cgr = (labels,untyps,typs) where
  
   isParam ty = case ty of
     Q _ _ -> True
+    QC _ _ -> True
     RecType rs -> all isParam (map snd rs)
     _ -> False