X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FPrinter.c;h=2fbe2765a648ce84ca87626ebfc39929b81827a3;hb=de75026f5a48d3d052135a973ab4dff76c5b20f5;hp=1ad63063f8430dfb8c083db1d29e110e58e27805;hpb=d600bf7a6afdbfc4a22f9379406a9c6f789a4c2d;p=ghc-hetmet.git

diff --git a/rts/Printer.c b/rts/Printer.c
index 1ad6306..2fbe276 100644
--- a/rts/Printer.c
+++ b/rts/Printer.c
@@ -121,8 +121,9 @@ printThunkObject( StgThunk *obj, char* tag )
 void
 printClosure( StgClosure *obj )
 {
+    obj = UNTAG_CLOSURE(obj);
+
     StgInfoTable *info;
-    
     info = get_itbl(obj);
 
     switch ( info->type ) {