diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,9 @@
 # Revision history for ghc-debug-client
 
+## 0.4.0.1 -- 2023-03-09
+
+* Relax some version bounds and use eventlog2html 0.9.3
+
 ## 0.4 -- 2022-12-14
 
 * Add support for tracing SRTs. This is quite an invasive change which adds a new
diff --git a/ghc-debug-client.cabal b/ghc-debug-client.cabal
--- a/ghc-debug-client.cabal
+++ b/ghc-debug-client.cabal
@@ -1,6 +1,6 @@
 cabal-version:       3.0
 name:                ghc-debug-client
-version:             0.4.0.0
+version:             0.4.0.1
 synopsis:            Useful functions for writing heap analysis tools which use
                      ghc-debug.
 description:         Useful functions for writing heap analysis tools which use
@@ -38,27 +38,27 @@
                        GHC.Debug.Client.Monad.Class,
                        GHC.Debug.Client.Monad.Simple
 
-  build-depends:       base >=4.16 && < 4.17,
+  build-depends:       base >=4.16 && < 4.19,
                        network >= 2.6 ,
                        containers ^>= 0.6,
                        unordered-containers ^>= 0.2.13,
                        ghc-debug-common == 0.4.0.0,
                        ghc-debug-convention == 0.4.0.0,
-                       text ^>= 1.2.4,
+                       text >= 1.2.4 && < 3,
                        process ^>= 1.6,
                        filepath ^>= 1.4,
                        directory ^>= 1.3,
                        bitwise ^>= 1.0,
                        hashable >= 1.3 && < 1.5,
                        mtl ^>= 2.2,
-                       eventlog2html >= 0.8.3 && < 0.9.3,
+                       eventlog2html == 0.9.3,
                        binary ^>= 0.8,
                        psqueues ^>= 0.2,
                        dom-lt ^>= 0.2,
                        async ^>= 2.2,
                        monoidal-containers >= 0.6,
                        language-dot ^>= 0.1,
-                       ghc-prim ^>= 0.8,
+                       ghc-prim >= 0.8 && <0.10,
                        stm ^>= 2.5,
                        bytestring,
                        contra-tracer
diff --git a/src/GHC/Debug/Profile.hs b/src/GHC/Debug/Profile.hs
--- a/src/GHC/Debug/Profile.hs
+++ b/src/GHC/Debug/Profile.hs
@@ -37,7 +37,7 @@
 import Eventlog.Data
 import Eventlog.Total
 import Eventlog.HtmlTemplate
-import Eventlog.Args (defaultArgs)
+import Eventlog.Args (defaultArgs, Option(..))
 import Data.Text (pack, Text, unpack)
 import Data.Semigroup
 import qualified Data.Text as T
@@ -204,7 +204,7 @@
 renderProfile :: [(Int, CensusByClosureType)] -> IO ()
 renderProfile ss = do
   let pd = mkProfData ss
-  as <- defaultArgs "unused"
+  Run as <- defaultArgs "unused"
   (header, data_json, descs, closure_descs) <- generateJsonData as pd
   let html = templateString header data_json descs closure_descs as
   writeFile "profile/ht.html" html