diff --git a/src/lib_store/shared/store_types.ml b/src/lib_store/shared/store_types.ml
index ecf81132e337b688c72765a834271427d845a539..42bb724473cf9e85a88804ebb5d3c449d505b766 100644
--- a/src/lib_store/shared/store_types.ml
+++ b/src/lib_store/shared/store_types.ml
@@ -49,6 +49,8 @@ module Block_store_status = struct
 
   let is_merging = function Idle _ -> false | Merging _ -> true
 
+  let get_status_value = function Idle v | Merging v -> v
+
   let create_idle_status = Idle 0
 
   let equal s1 s2 =
diff --git a/src/lib_store/shared/store_types.mli b/src/lib_store/shared/store_types.mli
index e2cce0135071c6519a369c4dade3b7c7d732f8aa..58c43546f5cf27f1c0fb45f0b0ea5ca166e8f5db 100644
--- a/src/lib_store/shared/store_types.mli
+++ b/src/lib_store/shared/store_types.mli
@@ -29,9 +29,6 @@ module Block_store_status : sig
   (** The type used to describe the status of the store. *)
   type t
 
-  (* Getters *)
-  val get_value : t Stored_data.t -> int Lwt.t
-
   (* Setters *)
 
   val set_idle_status : t Stored_data.t -> unit tzresult Lwt.t
@@ -44,6 +41,8 @@ module Block_store_status : sig
 
   val is_merging : t -> bool
 
+  val get_status_value : t -> int
+
   (* Initialisers *)
 
   val create_idle_status : t