diff --git a/ocaml/database/db_lock.ml b/ocaml/database/db_lock.ml
index 4de02abfa0..e893050f58 100644
--- a/ocaml/database/db_lock.ml
+++ b/ocaml/database/db_lock.ml
@@ -79,9 +79,11 @@ module ReentrantLock : REENTRANT_LOCK = struct
 
   let current_tid () = Thread.(self () |> id)
 
-  let[@inline never] [@specialize never] lock_acquired () = ()
+  let[@inline never] [@specialize never] lock_acquired () =
+    Xapi_timeslice.Timeslice.lock_acquired ()
 
-  let[@inline never] [@specialize never] lock_released () = ()
+  let[@inline never] [@specialize never] lock_released () =
+    Xapi_timeslice.Timeslice.lock_released ()
 
   let lock l =
     let me = current_tid () in
diff --git a/ocaml/database/dune b/ocaml/database/dune
index b748c32de2..1b67e2146d 100644
--- a/ocaml/database/dune
+++ b/ocaml/database/dune
@@ -48,6 +48,7 @@
     xapi-stdext-std
     xapi-stdext-threads
     xapi-stdext-unix
+    xapi_timeslice
     xml-light2
     xmlm
   )