diff options
Diffstat (limited to 'rts/Profiling.c')
| -rw-r--r-- | rts/Profiling.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Profiling.c b/rts/Profiling.c index 1e7003e041..ec38c927c2 100644 --- a/rts/Profiling.c +++ b/rts/Profiling.c @@ -1067,7 +1067,7 @@ fprintCCS_stderr (CostCentreStack *ccs, StgClosure *exception, StgTSO *tso) { char *desc; StgInfoTable *info; - info = get_itbl(exception); + info = get_itbl(UNTAG_CLOSURE(exception)); switch (info->type) { case CONSTR: case CONSTR_1_0: |