X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fsm%2FCompact.c;h=977e31d811de54b180818fa8b1632294158cdae9;hb=1be165c939bbfa7bb287eae3ef1a989ef6086355;hp=fd6c92fdd16ca6af8506723bca455e5a631b3177;hpb=70a2431f90fa932733ce015714ef7848640ed48f;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);