diff --git a/src/utop.ml b/src/utop.ml
index 20f956e00ad..2503c341ede 100644
--- a/src/utop.ml
+++ b/src/utop.ml
@@ -83,7 +83,7 @@ let setup sctx ~dir =
   let expander = Super_context.expander sctx ~dir in
   let scope = Super_context.find_scope_by_dir sctx dir in
   let utop_exe_dir = utop_exe_dir ~dir in
-  let obj_dir = Obj_dir.make_exe ~dir:utop_exe_dir ~name:main_module_filename in
+  let obj_dir = Obj_dir.make_exe ~dir:utop_exe_dir ~name:exe_name in
   let db = Scope.libs scope in
   let libs = libs_under_dir sctx ~db ~dir in
   let modules =
diff --git a/test/blackbox-tests/test-cases/utop/run.t b/test/blackbox-tests/test-cases/utop/run.t
index 8be2a3d9a61..71a43c77957 100644
--- a/test/blackbox-tests/test-cases/utop/run.t
+++ b/test/blackbox-tests/test-cases/utop/run.t
@@ -1,8 +1,8 @@
   $ dune utop --display short forutop -- init_forutop.ml
-      ocamldep forutop/.utop/.utop.ml.eobjs/utop.ml.d
+      ocamldep forutop/.utop/.utop.eobjs/utop.ml.d
       ocamldep forutop/.forutop.objs/forutop.ml.d
         ocamlc forutop/.forutop.objs/byte/forutop.{cmi,cmo,cmt}
         ocamlc forutop/forutop.cma
-        ocamlc forutop/.utop/.utop.ml.eobjs/byte/utop.{cmi,cmo,cmt}
+        ocamlc forutop/.utop/.utop.eobjs/byte/utop.{cmi,cmo,cmt}
         ocamlc forutop/.utop/utop.exe
   hello in utop