diff --git a/src/Copar/Functors/MonoidValued.hs b/src/Copar/Functors/MonoidValued.hs
index 75d29ce1517e21b57a7a4158bacaa38c2ee6cf40..9068801d8b51f7f1b7b6737b85c26e405660b5ad 100644
--- a/src/Copar/Functors/MonoidValued.hs
+++ b/src/Copar/Functors/MonoidValued.hs
@@ -199,7 +199,7 @@ instance (Monoid m, Ord m) => RefinementInterface (SlowMonoidValued m) where
     let toS  = foldl' (flip SumBag.insert) SumBag.empty labels
         toCWithoutS = foldl' (flip SumBag.delete) counts labels
         sumS = fold toS
-        sumCWithoutS = fold toS
+        sumCWithoutS = fold toCWithoutS
         f3   = (sumRest, sumCWithoutS, sumS)
         w1   = (sumRest <> sumCWithoutS, toS)
         w2   = (sumRest <> sumS, toCWithoutS)