diff --git a/common/src/GHC/Debug/Decode/Convert.hs b/common/src/GHC/Debug/Decode/Convert.hs
index eab161238379f7a82039384d8a553f77880c55f0..36af0701d8b2f69400e7bfd4f6ac93b468929e30 100644
--- a/common/src/GHC/Debug/Decode/Convert.hs
+++ b/common/src/GHC/Debug/Decode/Convert.hs
@@ -32,7 +32,7 @@ convertClosure  g =
     GHC.MutVarClosure a1 a2             -> MutVarClosure a1 a2
     GHC.BlockingQueueClosure a1 a2 a3 a4 a5 -> BlockingQueueClosure a1 a2 a3 a4 a5
     GHC.TSOClosure a1 a2                -> TSOClosure a1 a2
-    GHC.StackClosure a1 a2 a3 a4 a5     -> StackClosure a1 a2 a3 a4 a5
+    GHC.StackClosure a1 a2 a3 a4 a5     -> StackClosure a1 a2 a3 (StackCont a5 a4)
     GHC.IntClosure a1 a2                -> IntClosure a1 a2
     GHC.WordClosure a1 a2               -> WordClosure a1 a2
     GHC.Int64Closure a1 a2              -> Int64Closure a1 a2
diff --git a/common/src/GHC/Debug/Types/Ptr.hs b/common/src/GHC/Debug/Types/Ptr.hs
index 6843339e870429510e14b0fda7e19e4a338e3b01..e66a05c5c099ed1a95086ee51d93693e813b0262 100644
--- a/common/src/GHC/Debug/Types/Ptr.hs
+++ b/common/src/GHC/Debug/Types/Ptr.hs
@@ -58,7 +58,9 @@ newtype ClosurePtr = ClosurePtr Word64
 instance Show ClosurePtr where
   show (ClosurePtr p) =  "0x" ++ showHex (fromBE64 p) ""
 
-data StackCont = StackCont RawStack deriving Show
+data StackCont = StackCont { stackContStack :: !RawStack
+                           , stackContSp    :: !Word64
+                           } deriving Show
 
 newtype StackPtr = StackPtr Word64