X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2Fsm%2FCompact.c;h=9f0a69d1d1258f89654ed51b0c44a5943ec20c89;hp=bb4d8388c29e12a4e68939f0fbbe204728f1e99a;hb=74ee9df9f9e79e7110e9d8541b84010f35c464c5;hpb=54fe7a440247fbd0f853d07da23d48b50a229a00

diff --git a/rts/sm/Compact.c b/rts/sm/Compact.c
index bb4d838..9f0a69d 100644
--- a/rts/sm/Compact.c
+++ b/rts/sm/Compact.c
@@ -84,7 +84,7 @@ thread (StgClosure **p)
     if (HEAP_ALLOCED(q)) {
 	bd = Bdescr(q); 
 
-	if (bd->flags & BF_COMPACTED)
+	if (bd->flags & BF_MARKED)
         {
             iptr = *q;
             switch (GET_CLOSURE_TAG((StgClosure *)iptr))