X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=includes%2FInfoTables.h;h=bbffea6468e2bf7f1bdc68640310b59c80c22217;hp=a8e76b05b385fe3e7e0fb5d00e049dfbf0bb526c;hb=6015a94f9108a502150565577b66c23650796639;hpb=04d444716b2e5415fb8f13771e49f1192ef8c8f8

diff --git a/includes/InfoTables.h b/includes/InfoTables.h
index a8e76b0..bbffea6 100644
--- a/includes/InfoTables.h
+++ b/includes/InfoTables.h
@@ -164,7 +164,7 @@ typedef struct {
 
 extern StgWord16 closure_flags[];
 
-#define closureFlags(c)         (closure_flags[get_itbl(c)->type])
+#define closureFlags(c)         (closure_flags[get_itbl(UNTAG_CLOSURE(c))->type])
 
 #define closure_HNF(c)          (  closureFlags(c) & _HNF)
 #define closure_BITMAP(c)       (  closureFlags(c) & _BTM)