diff --git a/src/binary_formats.ml b/src/binary_formats.ml
index b769e763..1b47f8bf 100644
--- a/src/binary_formats.ml
+++ b/src/binary_formats.ml
@@ -107,12 +107,12 @@ module UTIL = struct
   module MK_HASH_64 () : sig
     type t = private { hash: string }
 
-    val f : string -> t
+    val of_string : string -> t
     val bin : t Bin.t
   end = struct
     type t = { hash: string }
 
-    let f s =
+    let of_string s =
       match String.length s = 64 with
       | false -> Fmt.failwith "SHA512 failure: data is not 64bytes"
       | true ->
diff --git a/src/management.ml b/src/management.ml
index 2d30f027..290adb59 100644
--- a/src/management.ml
+++ b/src/management.ml
@@ -28,8 +28,8 @@ let mk_future_denom denom_secmod_sign_f
   in
   let denom_secmod_sig =
     let open Binary_formats in
-    let h_denom_pub = DenominationHash.f (RsaPublicKey.to_octets pub) in
-    let h_section_name = HashCode.f section_name in
+    let h_denom_pub = DenominationHash.of_string (RsaPublicKey.to_octets pub) in
+    let h_section_name = HashCode.of_string section_name in
     let anchor_time =
       TimeAbsoluteNBO.{ v= Util.ptime_to_int64_us stamp_start }
     in