diff --git a/boot/duneboot.ml b/boot/duneboot.ml
index 96b94c27488..ed04b9edb4f 100644
--- a/boot/duneboot.ml
+++ b/boot/duneboot.ml
@@ -1013,13 +1013,15 @@ module Wrapper = struct
         | `Mli -> `Mli
         | _ -> `Ml
       in
-      (match t with
-       | None -> Module_name.to_fname name ~kind
-       | Some t ->
-         if Module_name.equal name t.toplevel_module
-         then Module_name.to_fname name ~kind
-         else
-           Module_name.mangle ~prefix:t.toplevel_module name |> Module_name.to_fname ~kind)
+      let name =
+        match t with
+        | None -> name
+        | Some t ->
+          if Module_name.equal name t.toplevel_module
+          then name
+          else Module_name.mangle ~prefix:t.toplevel_module name
+      in
+      Module_name.to_fname name ~kind
   ;;
 
   let header modules =