diff --git a/rts/AutoApply.h b/rts/AutoApply.h
index c48bdf47010d66eac75096f98040b3649b410035..f64bc6d894f64232c64cfb534afb2ed20fab25fe 100644
--- a/rts/AutoApply.h
+++ b/rts/AutoApply.h
@@ -20,6 +20,7 @@
     size = SIZEOF_StgPAP + WDS(n);			\
     HP_CHK_NP_ASSIGN_SP0(size,f);			\
     TICK_ALLOC_PAP(size, 0);				\
+    CCCS_ALLOC(size);					\
     pap = Hp + WDS(1) - size;				\
     SET_HDR(pap, stg_PAP_info, CCCS);                   \
     StgPAP_arity(pap) = HALF_W_(arity - m);		\
@@ -49,6 +50,7 @@
      size = SIZEOF_StgPAP + WDS(TO_W_(StgPAP_n_args(pap))) + WDS(n);	\
      HP_CHK_NP_ASSIGN_SP0(size,f);				\
      TICK_ALLOC_PAP(size, 0);					\
+     CCCS_ALLOC(size);						\
      new_pap = Hp + WDS(1) - size;				\
      SET_HDR(new_pap, stg_PAP_info, CCCS);                      \
      StgPAP_arity(new_pap) = HALF_W_(arity - m);		\