diff --git a/src/compiler/GF/Compile/GeneratePMCFG.hs b/src/compiler/GF/Compile/GeneratePMCFG.hs
index 6bb57f1b6..7803d0cd7 100644
--- a/src/compiler/GF/Compile/GeneratePMCFG.hs
+++ b/src/compiler/GF/Compile/GeneratePMCFG.hs
@@ -192,7 +192,7 @@ param2int (VR as) (RecType lbls) = compute lbls
 param2int (VApp q tnks) ty = do
   (r ,    ctxt,cnt ) <- getIdxCnt q
   (r',rs',     cnt') <- compute ctxt tnks
-  return (r+r',rs',cnt*cnt')
+  return (r+r',rs',cnt)
   where
     getIdxCnt q = do
       (_,ResValue (L _ ty) idx) <- getInfo q