diff --git a/patches/ghc-debug-common-0.2.1.0.patch b/patches/ghc-debug-common-0.2.1.0.patch
index a57af1d216ae944b35253fa3eac38df6bf2578cf..5e6518a24928d1d44dff3fcf9ff5a352533e39bb 100644
--- a/patches/ghc-debug-common-0.2.1.0.patch
+++ b/patches/ghc-debug-common-0.2.1.0.patch
@@ -1,5 +1,5 @@
diff --git a/src/GHC/Debug/Decode/Convert.hs b/src/GHC/Debug/Decode/Convert.hs
-index 5df6523..c2311e9 100644
+index 5df6523..e6048b6 100644
--- a/src/GHC/Debug/Decode/Convert.hs
+++ b/src/GHC/Debug/Decode/Convert.hs
@@ -1,3 +1,4 @@
@@ -7,7 +7,20 @@ index 5df6523..c2311e9 100644
{- Convert a GenClosure to a DebugClosure -}
module GHC.Debug.Decode.Convert where
-@@ -40,10 +41,14 @@ convertClosure itb g =
+@@ -27,7 +28,11 @@ convertClosure itb g =
+ GHC.MVarClosure _ a2 a3 a4 -> MVarClosure itb a2 a3 a4
+ GHC.MutVarClosure _ a2 -> MutVarClosure itb a2
+ GHC.BlockingQueueClosure _ a2 a3 a4 a5 -> BlockingQueueClosure itb a2 a3 a4 a5
+- GHC.TSOClosure _ a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 a16 -> TSOClosure itb a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 a16
++ GHC.TSOClosure _ a2 a3 a4 a5 a6 a7
++#if __GLASGOW_HASKELL__ >= 905
++ _
++#endif
++ a8 a9 a10 a11 a12 a13 a14 a15 a16 -> TSOClosure itb a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 a16
+ -- GHC.StackClosure _ a2 a3 a4 a5 -> StackClosure itb a2 a3 a4 (a2, (StackPtr a5))
+ {-
+ GHC.IntClosure a1 a2 -> IntClosure a1 a2
+@@ -40,10 +45,14 @@ convertClosure itb g =
-}
GHC.OtherClosure _ a2 a3 -> OtherClosure itb a2 a3
GHC.WeakClosure _ a2 a3 a4 a5 a6 ->