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   ->