fix reduce with pcalc