diff --git a/ocaml/database/redo_log.ml b/ocaml/database/redo_log.ml
index 6ef17b93c4e..566ef0952c0 100644
--- a/ocaml/database/redo_log.ml
+++ b/ocaml/database/redo_log.ml
@@ -49,7 +49,7 @@ let mib megabytes =
   Int64.of_int megabytes ** 1024L ** 1024L
 
 (* Make sure we have plenty of room for the database *)
-let minimum_vdi_size, recommended_vdi_size = (mib 256, mib 4096)
+let minimum_vdi_size = mib 4096
 
 let redo_log_sm_config = [("type", "raw")]
 
diff --git a/ocaml/database/redo_log.mli b/ocaml/database/redo_log.mli
index 800922c7b0a..710612fe9fa 100644
--- a/ocaml/database/redo_log.mli
+++ b/ocaml/database/redo_log.mli
@@ -21,9 +21,6 @@ val get_static_device : string -> string option
 val minimum_vdi_size : int64
 (** Minimum size for redo log VDI *)
 
-val recommended_vdi_size : int64
-(** Recommended size for redo log VDI *)
-
 val redo_log_sm_config : (string * string) list
 (** SM config for redo log VDI *)
 
diff --git a/ocaml/xapi/xapi_pool.ml b/ocaml/xapi/xapi_pool.ml
index b5345bbbb1d..9f5e8fd39a8 100644
--- a/ocaml/xapi/xapi_pool.ml
+++ b/ocaml/xapi/xapi_pool.ml
@@ -2858,7 +2858,7 @@ let create_redo_log_vdi ~__context ~sr =
       Client.VDI.create ~rpc ~session_id ~name_label:"Metadata redo-log"
         ~name_description:
           "Used when HA is disabled, while extra security is still desired"
-        ~sR:sr ~virtual_size:Redo_log.recommended_vdi_size ~_type:`redo_log
+        ~sR:sr ~virtual_size:Redo_log.minimum_vdi_size ~_type:`redo_log
         ~sharable:true ~read_only:false ~other_config:[] ~xenstore_data:[]
         ~sm_config:Redo_log.redo_log_sm_config ~tags:[]
   )
diff --git a/ocaml/xapi/xapi_sr.ml b/ocaml/xapi/xapi_sr.ml
index 7abd3e5f7b4..8f4bc9a3711 100644
--- a/ocaml/xapi/xapi_sr.ml
+++ b/ocaml/xapi/xapi_sr.ml
@@ -942,7 +942,7 @@ let find_or_create_metadata_vdi ~__context ~sr =
         Helpers.call_api_functions ~__context (fun rpc session_id ->
             Client.VDI.create ~rpc ~session_id ~name_label:"Metadata for DR"
               ~name_description:"Used for disaster recovery" ~sR:sr
-              ~virtual_size:Redo_log.recommended_vdi_size ~_type:`metadata
+              ~virtual_size:Redo_log.minimum_vdi_size ~_type:`metadata
               ~sharable:false ~read_only:false ~other_config:[]
               ~xenstore_data:[] ~sm_config:Redo_log.redo_log_sm_config ~tags:[]
         )
diff --git a/ocaml/xapi/xha_metadata_vdi.ml b/ocaml/xapi/xha_metadata_vdi.ml
index 311edc71394..d824bf6a493 100644
--- a/ocaml/xapi/xha_metadata_vdi.ml
+++ b/ocaml/xapi/xha_metadata_vdi.ml
@@ -24,8 +24,8 @@ let create ~__context ~sr =
   Helpers.call_api_functions ~__context (fun rpc session_id ->
       Client.VDI.create ~rpc ~session_id ~name_label:"Metadata for HA"
         ~name_description:"Used for master failover" ~sR:sr
-        ~virtual_size:Redo_log.recommended_vdi_size ~_type:`redo_log
-        ~sharable:true ~read_only:false ~other_config:[] ~xenstore_data:[]
+        ~virtual_size:Redo_log.minimum_vdi_size ~_type:`redo_log ~sharable:true
+        ~read_only:false ~other_config:[] ~xenstore_data:[]
         ~sm_config:Redo_log.redo_log_sm_config ~tags:[]
   )