X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=rts%2Fsm%2FCompact.c;h=977e31d811de54b180818fa8b1632294158cdae9;hb=75aadeee9fc8495b2eaf3f2448591846cc917968;hp=fd6c92fdd16ca6af8506723bca455e5a631b3177;hpb=ee9ecae821665a7d9f2c8629264614a8d42c1b5d;p=ghc-hetmet.git

diff --git a/rts/sm/Compact.c b/rts/sm/Compact.c
index fd6c92f..977e31d 100644
--- a/rts/sm/Compact.c
+++ b/rts/sm/Compact.c
@@ -476,6 +476,7 @@ thread_TSO (StgTSO *tso)
 	thread_(&tso->block_info.closure);
     }
     thread_(&tso->blocked_exceptions);
+    thread_(&tso->bq);
     
     thread_(&tso->trec);