X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FRetainerProfile.c;h=f75250659cebb9b6806c77c0a98dbaa8095ab7de;hb=b09ab92b65983635c68c8944631b1d53e9b71e42;hp=553f7e7ad10bd7ca915f3922744903f3c48dfddb;hpb=006a18ea83799c0d4255071a2f8c08d3e9c7d84f;p=ghc-hetmet.git

diff --git a/rts/RetainerProfile.c b/rts/RetainerProfile.c
index 553f7e7..f752506 100644
--- a/rts/RetainerProfile.c
+++ b/rts/RetainerProfile.c
@@ -1439,7 +1439,7 @@ retainStack( StgClosure *c, retainer c_child_r,
 	    StgFunInfoTable *fun_info;
 	    
 	    retainClosure(ret_fun->fun, c, c_child_r);
-	    fun_info = get_fun_itbl(ret_fun->fun);
+	    fun_info = get_fun_itbl(UNTAG_CLOSURE(ret_fun->fun));
 	    
 	    p = (P_)&ret_fun->payload;
 	    switch (fun_info->f.fun_type) {