X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FThreads.c;h=08b7aab66ee92088105243462efac0a7328e5d02;hp=4f9560c36c10f5ec12163ad8af9dd9d7edafedd6;hb=7effbbbbdfe7eb05c6402fa9337e358e7e9fadde;hpb=4e8b07dbc753a5132c574926468ba886728c9049

diff --git a/rts/Threads.c b/rts/Threads.c
index 4f9560c..08b7aab 100644
--- a/rts/Threads.c
+++ b/rts/Threads.c
@@ -230,8 +230,8 @@ unblockOne_ (Capability *cap, StgTSO *tso,
       // We are waking up this thread on the current Capability, which
       // might involve migrating it from the Capability it was last on.
       if (tso->bound) {
-	  ASSERT(tso->bound->cap == tso->cap);
-	  tso->bound->cap = cap;
+	  ASSERT(tso->bound->task->cap == tso->cap);
+	  tso->bound->task->cap = cap;
       }
 
       tso->cap = cap;