diff --git a/app/ghcup/Main.hs b/app/ghcup/Main.hs
index ee2cf08..932066f 100644
--- a/app/ghcup/Main.hs
+++ b/app/ghcup/Main.hs
@@ -26,6 +26,7 @@ import           GHCup.Prelude
 import           GHCup.Prelude.Logger
 import           GHCup.Prelude.String.QQ
 import           GHCup.Version
+import GHC.Debug.Stub
 
 import           Cabal.Plan ( findPlanJson, SearchPlanJson(..) )
 import           Control.Concurrent
@@ -120,7 +121,7 @@ plan_json = $( do
 
 
 main :: IO ()
-main = do
+main = withGhcDebug $ do
   -- https://gitlab.haskell.org/ghc/ghc/issues/8118
   setLocaleEncoding utf8
 
diff --git a/cabal.project b/cabal.project
index 79a2ba7..8a1c742 100644
--- a/cabal.project
+++ b/cabal.project
@@ -32,4 +32,7 @@ package aeson
 package streamly
   flags: +use-unliftio
 
+package *
+  ghc-options: -finfo-table-map -fdistinct-constructor-tables
+
 allow-newer: base, ghc-prim, template-haskell, language-c
diff --git a/ghcup.cabal b/ghcup.cabal
index c2094ea..23ac23d 100644
--- a/ghcup.cabal
+++ b/ghcup.cabal
@@ -240,6 +240,7 @@ executable ghcup
     , deepseq               ^>=1.4
     , directory             ^>=1.3.6.0
     , filepath              ^>=1.4.2.1
+    , ghc-debug-stub
     , ghcup
     , haskus-utils-types    ^>=1.5
     , haskus-utils-variant  ^>=3.2.1