X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FInterpreter.c;fp=rts%2FInterpreter.c;h=9071912f2de991f50b1a4db3e91e1d902181fc92;hp=d1b11aea532cbd5caccf938ce5bb4cc072659fa5;hb=bfe90953c7700efb3b62a7c63a823608add077b8;hpb=f2c58035f765712341399be2dcec871757f529e6

diff --git a/rts/Interpreter.c b/rts/Interpreter.c
index d1b11ae..9071912 100644
--- a/rts/Interpreter.c
+++ b/rts/Interpreter.c
@@ -443,7 +443,7 @@ do_return:
         // to a PAP by the GC, violating the invariant that PAPs
         // always contain a tagged pointer to the function.
 	INTERP_TICK(it_retto_UPDATE);
-	UPD_IND(((StgUpdateFrame *)Sp)->updatee, tagged_obj); 
+	UPD_IND(cap, ((StgUpdateFrame *)Sp)->updatee, tagged_obj); 
 	Sp += sizeofW(StgUpdateFrame);
 	goto do_return;