diff --git a/src/lib_stdlib/logging.ml b/src/lib_stdlib/logging.ml
index b8723ce76..75e2b5fb4 100644
--- a/src/lib_stdlib/logging.ml
+++ b/src/lib_stdlib/logging.ml
@@ -175,7 +175,7 @@ end
 
 let sections = ref []
 
-module Make_unregistered(S : sig val name: string end) : LOG = struct
+module Make_unregistered(S : MESSAGE) : LOG = struct
 
   let section = Lwt_log_core.Section.make S.name
   type log_section += Section
@@ -218,7 +218,7 @@ module Make_unregistered(S : sig val name: string end) : LOG = struct
 
 end
 
-module Make(S : sig val name: string end) : LOG = struct
+module Make(S : MESSAGE) : LOG = struct
 
   let () = sections := S.name :: !sections
   include Make_unregistered(S)
diff --git a/src/lib_stdlib/logging.mli b/src/lib_stdlib/logging.mli
index 68e7c9d2f..3ffbe4153 100644
--- a/src/lib_stdlib/logging.mli
+++ b/src/lib_stdlib/logging.mli
@@ -103,8 +103,8 @@ module Core : sig
   val worker : string Tag.def
 end
 
-module Make(S: sig val name: string end) : LOG
-module Make_unregistered(S: sig val name: string end) : LOG
+module Make(S: MESSAGE) : LOG
+module Make_unregistered(S: MESSAGE) : LOG
 
 module Make_semantic(S: MESSAGE) : SEMLOG