X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FRetainerProfile.c;fp=rts%2FRetainerProfile.c;h=b71b620d968aa1f4cab7f475a7a3f6928a443572;hp=b17f24f7b4a932e3b930fbe707d1e39422f69787;hb=04cddd339c000df6d02c90ce59dbffa58d2fe166;hpb=9de1ad504a0a12dabd42b206f06ca04fa0e7009a

diff --git a/rts/RetainerProfile.c b/rts/RetainerProfile.c
index b17f24f..b71b620 100644
--- a/rts/RetainerProfile.c
+++ b/rts/RetainerProfile.c
@@ -1635,7 +1635,7 @@ inner_loop:
 #ifdef DEBUG_RETAINER
 	    debugBelch("ThreadRelocated encountered in retainClosure()\n");
 #endif
-	    c = (StgClosure *)((StgTSO *)c)->link;
+	    c = (StgClosure *)((StgTSO *)c)->_link;
 	    goto inner_loop;
 	}
 	break;