diff --git a/ghc/includes/StgMacros.lh b/ghc/includes/StgMacros.lh
index c612a12de789306344a12634d1552aec8bf2ccdb..634d81a5081a7af244b629bd9c9243cb4f97967c 100644
--- a/ghc/includes/StgMacros.lh
+++ b/ghc/includes/StgMacros.lh
@@ -1981,7 +1981,7 @@ ED_(True_closure);
 extern I_ required_thread_count;
 
 #ifdef PAR
-#define COUNT_SPARK     TSO_GLOBALSPARKS(CurrentTSO)++
+#define COUNT_SPARK     TSO_GLOBALSPARKS(CurrentTSO)++; sparksCreated++
 #else
 #define COUNT_SPARK
 #endif