diff --git a/dev-ml/ocaml-inifiles/files/ocaml-inifiles-1.2-inifiles.ml.patch b/dev-ml/ocaml-inifiles/files/ocaml-inifiles-1.2-inifiles.ml.patch
index 17c060c8a2087..66c463a579b58 100644
--- a/dev-ml/ocaml-inifiles/files/ocaml-inifiles-1.2-inifiles.ml.patch
+++ b/dev-ml/ocaml-inifiles/files/ocaml-inifiles-1.2-inifiles.ml.patch
@@ -1,5 +1,14 @@
 --- a/inifiles.ml
 +++ b/inifiles.ml
+@@ -50,7 +50,7 @@
+ struct
+   type t = string
+   let compare (x:t) (y:t) = 
+-    String.compare (String.lowercase x) (String.lowercase y)
++    String.compare (String.lowercase_ascii x) (String.lowercase_ascii y)
+ end
+ 
+ module Strset = Set.Make(Ordstr)
 @@ -257,7 +257,7 @@
         func
         initial