diff --git a/src/stdune/path.ml b/src/stdune/path.ml
index f7b7ee5e..06217960 100644
--- a/src/stdune/path.ml
+++ b/src/stdune/path.ml
@@ -511,7 +511,7 @@ end = struct
     | _               , In_source_tree _ -> Gt
     | In_build_dir x  , In_build_dir y   -> Local.compare x y
 
-  let equal x y = compare x y = Ordering.Eq
+  let equal = (=)
   let hash = Hashtbl.hash
 
   let in_build_dir s = In_build_dir s