diff --git a/src/core/trace_core.ml b/src/core/trace_core.ml
index 1473c51..736ef3f 100644
--- a/src/core/trace_core.ml
+++ b/src/core/trace_core.ml
@@ -24,6 +24,7 @@ let[@inline] enabled () =
   | None -> false
   | Some _ -> true
 
+let[@inline] get_default_level () = A.get default_level_
 let[@inline] set_default_level l = A.set default_level_ l
 let[@inline] set_current_level l = A.set current_level_ l
 let[@inline] get_current_level () = A.get current_level_
diff --git a/src/core/trace_core.mli b/src/core/trace_core.mli
index f34d769..85b4b8f 100644
--- a/src/core/trace_core.mli
+++ b/src/core/trace_core.mli
@@ -22,9 +22,14 @@ val enabled : unit -> bool
     This is fast, so that the traced program can check it before creating
     any span or message. *)
 
+val get_default_level : unit -> Level.t
+(** Current default level for spans.
+    @since NEXT_RELEASE *)
+
 val set_default_level : Level.t -> unit
 (** Set level used for spans that do not specify it. The default
-    default value is [Level.Trace] *)
+    default value is [Level.Trace].
+    @since NEXT_RELEASE *)
 
 val with_span :
   ?level:Level.t ->