1 diff --git a/bin/fiber/fiber.ml b/bin/fiber/fiber.ml
2 index 188a92cc9..6087a8687 100644
3 --- a/bin/fiber/fiber.ml
4 +++ b/bin/fiber/fiber.ml
5 @@ -129,7 +129,7 @@ let worker pool =
7 let get_concurrency () =
9 - let ic = Unix.open_process_in "getconf _NPROCESSORS_ONLN" in
10 + let ic = Unix.open_process_in "@getconf@/bin/getconf _NPROCESSORS_ONLN" in
11 let close () = ignore (Unix.close_process_in ic) in
12 let sc = Scanf.Scanning.from_channel ic in