diff --git a/ocaml/xapi-cli-server/record_util.ml b/ocaml/xapi-cli-server/record_util.ml
index 5332c2aee16..bacf9177698 100644
--- a/ocaml/xapi-cli-server/record_util.ml
+++ b/ocaml/xapi-cli-server/record_util.ml
@@ -724,7 +724,8 @@ let host_numa_affinity_policy_to_string = function
   | `default_policy ->
       "default_policy"
 
-let host_numa_affinity_policy_of_string = function
+let host_numa_affinity_policy_of_string a =
+  match String.lowercase_ascii a with
   | "any" ->
       `any
   | "best_effort" ->