diff --git a/src/process.ml b/src/process.ml
index b82ba99a..1ec74a5b 100644
--- a/src/process.ml
+++ b/src/process.ml
@@ -112,7 +112,11 @@ module Fancy = struct
     | x :: rest -> x :: colorize_args rest
 
   let command_line ~prog ~args ~dir ~stdout_to ~stderr_to =
-    let prog = Path.to_string prog in
+    let prog =
+      match dir with
+      | None -> Path.to_string prog
+      | Some from -> Path.reach_for_running prog ~from
+    in
     let quote = quote_for_shell in
     let prog = colorize_prog (quote prog) in
     let s =
diff --git a/test/blackbox-tests/test-cases/inline_tests/run.t b/test/blackbox-tests/test-cases/inline_tests/run.t
index 76dd7362..cc478036 100644
--- a/test/blackbox-tests/test-cases/inline_tests/run.t
+++ b/test/blackbox-tests/test-cases/inline_tests/run.t
@@ -1,6 +1,6 @@
   $ env -u OCAMLRUNPARAM jbuilder runtest simple
            run alias simple/runtest (exit 2)
-  (cd _build/default/simple && _build/default/simple/.foo_simple.inline-tests/run.exe)
+  (cd _build/default/simple && ./.foo_simple.inline-tests/run.exe)
   Fatal error: exception File "simple/.foo_simple.inline-tests/run.ml", line 1, characters 10-16: Assertion failed
   [1]