X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FSparks.c;h=7e89d46c663a161441d6b23c6564a25479d5698a;hb=ff93deac2a5c02111bcc4cf5a3c87aefe4d6dc6c;hp=75464d925b95f0d9d811be9e2e7d1ef3a963dd05;hpb=6f045438008234fe58c7629ce1b33e3524fc9006;p=ghc-hetmet.git

diff --git a/rts/Sparks.c b/rts/Sparks.c
index 75464d9..7e89d46 100644
--- a/rts/Sparks.c
+++ b/rts/Sparks.c
@@ -91,7 +91,7 @@ newSpark (StgRegTable *reg, StgClosure *p)
 
     cap->sparks_created++;
 
-    postEvent(cap, EVENT_CREATE_SPARK, reg->rCurrentTSO->id, 0);
+    postEvent(cap, EVENT_CREATE_SPARK, cap->r.rCurrentTSO->id, 0);
 
     return 1;
 }