1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Interpreter.c b/rts/Interpreter.c
index 2eb2d0789f..809f0aba5a 100644
--- a/rts/Interpreter.c
+++ b/rts/Interpreter.c
@@ -1479,7 +1479,7 @@ run_BCO:
             // Re-load the pointer to the BCO from the stg_ret_p frame,
             // it might have moved during the call.  Also reload the
             // pointers to the components of the BCO.
-            obj        = (P_)Sp[1];
+            obj        = (StgClosure*)Sp[1];
             bco        = (StgBCO*)obj;
             instrs     = (StgWord16*)(bco->instrs->payload);
             literals   = (StgWord*)(&bco->literals->payload[0]);