diff --git a/CHANGELOG.rst b/CHANGELOG.rst
--- a/CHANGELOG.rst
+++ b/CHANGELOG.rst
@@ -7,6 +7,18 @@
 .. _PVP: https://pvp.haskell.org/
 
 
+2.4.0.7 (2025-01-06)
+--------------------
+
+* Git: :tag:`dejafu-2.4.0.7`
+* Hackage: :hackage:`dejafu-2.4.0.7`
+
+Miscellaneous
+~~~~~~~~~~~~~
+
+* The upper bound on :hackage:`random` is <1.4.
+
+
 2.4.0.6 (2024-12-11)
 --------------------
 
diff --git a/Test/DejaFu/Utils.hs b/Test/DejaFu/Utils.hs
--- a/Test/DejaFu/Utils.hs
+++ b/Test/DejaFu/Utils.hs
@@ -24,7 +24,7 @@
 -- @since 1.3.2.0
 toTIdTrace :: Trace -> [(ThreadId, ThreadAction)]
 toTIdTrace =
-  tail . scanl (\(t, _) (d, _, a) -> (tidOf t d, a)) (initialThread, undefined)
+  drop 1 . scanl (\(t, _) (d, _, a) -> (tidOf t d, a)) (initialThread, undefined)
 
 -- | Pretty-print a trace, including a key of the thread IDs (not
 -- including thread 0). Each line of the key is indented by two
diff --git a/dejafu.cabal b/dejafu.cabal
--- a/dejafu.cabal
+++ b/dejafu.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                dejafu
-version:             2.4.0.6
+version:             2.4.0.7
 synopsis:            A library for unit-testing concurrent programs.
 
 description:
@@ -33,7 +33,7 @@
 source-repository this
   type:     git
   location: https://github.com/barrucadu/dejafu.git
-  tag:      dejafu-2.4.0.6
+  tag:      dejafu-2.4.0.7
 
 library
   exposed-modules:     Test.DejaFu
@@ -66,7 +66,7 @@
                      , exceptions        >=0.7 && <0.11
                      , leancheck         >=0.6 && <2
                      , profunctors       >=4.0 && <6
-                     , random            >=1.0 && <1.3
+                     , random            >=1.0 && <1.4
                      , transformers      >=0.5 && <0.7
   -- hs-source-dirs:
   default-language:    Haskell2010