diff --git a/src/core/clock.ml b/src/core/clock.ml
index 4a39145c..505274f5 100644
--- a/src/core/clock.ml
+++ b/src/core/clock.ml
@@ -21,6 +21,9 @@ end
 (** Clock that uses ptime. *)
 let ptime_clock : t = { now = now_ptime_ }
 
+(** Same as [now ptime_clock] *)
+let now_ptime = now_ptime_
+
 (** Singleton clock *)
 module Main = struct
   open struct