X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FSchedule.c;h=3a454959f5f9f8127ed1171d9e2c1b0724d20d7f;hb=5123ae93cfc5cdfcecc84340a9517580ad900d64;hp=cb2f7f3e870b3afe6755f5d974fc1ad69ff2a955;hpb=62cda22c8db50fc1e90efcf266d75ea4d3590697;p=ghc-hetmet.git

diff --git a/rts/Schedule.c b/rts/Schedule.c
index cb2f7f3..3a45495 100644
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -2949,7 +2949,7 @@ checkBlackHoles (Capability *cap)
     t = blackhole_queue;
     while (t != END_TSO_QUEUE) {
 	ASSERT(t->why_blocked == BlockedOnBlackHole);
-	type = get_itbl(t->block_info.closure)->type;
+	type = get_itbl(UNTAG_CLOSURE(t->block_info.closure))->type;
 	if (type != BLACKHOLE && type != CAF_BLACKHOLE) {
 	    IF_DEBUG(sanity,checkTSO(t));
 	    t = unblockOne(cap, t);