diff options
| -rw-r--r-- | rts/Messages.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Messages.c b/rts/Messages.c index 7a37a86259..f7cb809351 100644 --- a/rts/Messages.c +++ b/rts/Messages.c @@ -161,7 +161,7 @@ nat messageBlackHole(Capability *cap, MessageBlackHole *msg) const StgInfoTable *info; StgClosure *p; StgBlockingQueue *bq; - StgClosure *bh = msg->bh; + StgClosure *bh = UNTAG_CLOSURE(msg->bh); StgTSO *owner; debugTraceCap(DEBUG_sched, cap, "message: thread %d blocking on blackhole %p", |