diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,6 @@
+# hpqtypes-effectful-1.0.1.0 (2023-12-18)
+* Compatibility with `hpqtypes` >= 1.12.0.0.
+
 # hpqtypes-effectful-1.0.0.1 (2023-03-28)
 * Compatibility with `hpqtypes` >= 1.11.1.0.
 
diff --git a/hpqtypes-effectful.cabal b/hpqtypes-effectful.cabal
--- a/hpqtypes-effectful.cabal
+++ b/hpqtypes-effectful.cabal
@@ -1,7 +1,7 @@
 cabal-version:      2.4
 build-type:         Simple
 name:               hpqtypes-effectful
-version:            1.0.0.1
+version:            1.0.1.0
 license:            BSD-3-Clause
 license-file:       LICENSE
 category:           Database
@@ -16,7 +16,8 @@
   CHANGELOG.md
   README.md
 
-tested-with: GHC ==8.8.4 || ==8.10.7 || ==9.0.2 || ==9.2.7 || ==9.4.4 || ==9.6.1
+tested-with: GHC ==8.8.4 || ==8.10.7 || ==9.0.2 || ==9.2.8 || ==9.4.7 || ==9.6.3
+              || ==9.8.1
 
 bug-reports: https://github.com/haskell-effectful/hpqtypes-effectful/issues
 source-repository head
@@ -58,7 +59,7 @@
   build-depends:   base               >= 4.13      && < 5
                  , effectful-core     >= 1.2.0.0   && < 3.0.0.0
                  , exceptions
-                 , hpqtypes           >= 1.11.1.0  && < 1.12.0.0
+                 , hpqtypes           >= 1.11.1.0  && < 1.13.0.0
 
   hs-source-dirs:   src
 
diff --git a/src/Effectful/HPQTypes.hs b/src/Effectful/HPQTypes.hs
--- a/src/Effectful/HPQTypes.hs
+++ b/src/Effectful/HPQTypes.hs
@@ -24,6 +24,7 @@
 import Effectful.Dispatch.Dynamic
 import Effectful.State.Static.Local (State, evalState)
 import qualified Effectful.State.Static.Local as State
+import GHC.Stack
 
 -- | Provide the ability to access a PostgreSQL database via 'MonadDB'.
 data DB :: Effect where
@@ -43,11 +44,11 @@
 
 -- | Orphan, canonical instance.
 instance DB :> es => MonadDB (Eff es) where
-  runQuery = send . RunQuery
+  runQuery = withFrozenCallStack $ send . RunQuery
   getQueryResult = send GetQueryResult
   clearQueryResult = send ClearQueryResult
-  getConnectionStats = send GetConnectionStats
-  runPreparedQuery qn = send . RunPreparedQuery qn
+  getConnectionStats = withFrozenCallStack $ send GetConnectionStats
+  runPreparedQuery qn = withFrozenCallStack $ send . RunPreparedQuery qn
   getLastQuery = send GetLastQuery
   getTransactionSettings = send GetTransactionSettings
   setTransactionSettings = send . SetTransactionSettings