diff --git a/src/context.ml b/src/context.ml
index 33c654f6..29d261d2 100644
--- a/src/context.ml
+++ b/src/context.ml
@@ -270,7 +270,7 @@ let create ~(kind : Kind.t) ~path ~env ~env_nodes ~name ~merlin ~targets
              %s"
           (Path.to_string ocamlc) msg
       | Error (Makefile_config file, msg) ->
-        Loc.fail (Loc.in_file (Path.to_string file)) "%s" msg
+        Dloc.fail (Loc.in_file (Path.to_string file)) "%s" msg
     in
     Fiber.fork_and_join
       findlib_path