diff options
-rw-r--r-- | rts/Threads.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Threads.c b/rts/Threads.c index 0350433cf0..9af1069986 100644 --- a/rts/Threads.c +++ b/rts/Threads.c @@ -469,7 +469,7 @@ updateThunk (Capability *cap, StgTSO *tso, StgClosure *thunk, StgClosure *val) return; } - v = UNTAG_CLOSURE(((StgInd*)thunk)->indirectee); + v = UNTAG_CLOSURE(ACQUIRE_LOAD(&((StgInd*)thunk)->indirectee)); updateWithIndirection(cap, thunk, val); |