diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,7 @@
+# v1.2.1
+
+* Support GHC 9.4
+
 # v1.2.0
 
 * Drop support for GHC < 8.10
diff --git a/src/Language/Haskell/TH/TestUtils.hs b/src/Language/Haskell/TH/TestUtils.hs
--- a/src/Language/Haskell/TH/TestUtils.hs
+++ b/src/Language/Haskell/TH/TestUtils.hs
@@ -338,3 +338,12 @@
     , whenMocked = Unsupported "qGetDoc"
     }
 #endif
+
+#if MIN_VERSION_template_haskell(2,19,0)
+  qGetPackageRoot =
+    use
+      Override
+        { whenAllowed = qGetPackageRoot
+        , whenMocked = Unsupported "qGetPackageRoot"
+        }
+#endif
diff --git a/th-test-utils.cabal b/th-test-utils.cabal
--- a/th-test-utils.cabal
+++ b/th-test-utils.cabal
@@ -5,7 +5,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           th-test-utils
-version:        1.2.0
+version:        1.2.1
 synopsis:       Utility functions for testing Template Haskell code
 description:    Utility functions for testing Template Haskell code, including
                 functions for testing failures in the Q monad.
@@ -37,7 +37,7 @@
   ghc-options: -Wall
   build-depends:
       base >=4.9 && <5
-    , template-haskell >=2.16 && <2.19
+    , template-haskell >=2.16 && <2.20
     , th-orphans >=0.13.4 && <0.14
     , transformers >=0.5.2 && <0.6
   default-language: Haskell2010
@@ -62,7 +62,7 @@
     , tasty
     , tasty-golden
     , tasty-hunit
-    , template-haskell >=2.16 && <2.19
+    , template-haskell >=2.16 && <2.20
     , th-orphans >=0.13.4 && <0.14
     , th-test-utils
     , transformers >=0.5.2 && <0.6