X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FStable.c;fp=rts%2FStable.c;h=a6b8ddf7381a0291219d6a583674d5e1d762079c;hb=ddd8dea08710d6ddefb40d7fb216080119bf3bbf;hp=0ed18bcec2c94992a7af8e7b6d7d4b186944b724;hpb=bf0ab2d94f23d5295c43fd87844fccd47a1fdfd7;p=ghc-hetmet.git

diff --git a/rts/Stable.c b/rts/Stable.c
index 0ed18bc..a6b8ddf 100644
--- a/rts/Stable.c
+++ b/rts/Stable.c
@@ -195,9 +195,11 @@ removeIndirections(StgClosure* p)
          get_itbl(q)->type == IND_OLDGEN ||
          get_itbl(q)->type == IND_PERM ||
          get_itbl(q)->type == IND_OLDGEN_PERM ) {
+      q = ((StgInd *)q)->indirectee;
       tag = GET_CLOSURE_TAG(q);
-      q = UNTAG_CLOSURE(((StgInd *)q)->indirectee);
+      q = UNTAG_CLOSURE(q);
   }
+
   return TAG_CLOSURE(tag,q);
 }