diff --git a/src/core/opamStd.ml b/src/core/opamStd.ml
index 52404033fc9..f6fa274ce6c 100644
--- a/src/core/opamStd.ml
+++ b/src/core/opamStd.ml
@@ -719,7 +719,7 @@ module OpamString = struct
       else
       let c = path.[index]
       and next = succ index in
-      if c = sep && normal || c = '"' then
+      if (c : char) = sep && normal || c = '"' then
         let current = current ^ String.sub path last (index - last) in
         if c = '"' then
           f acc next current next (not normal)