diff --git a/generator/js_of_ast.ml b/generator/js_of_ast.ml
index 33c39b0041be557ca279ff64984510e60a1a1ee1..17359de1339c814d85f8f2070fa6f6b878fea42c 100644
--- a/generator/js_of_ast.ml
+++ b/generator/js_of_ast.ml
@@ -145,7 +145,7 @@ let ppf_function args body=
   (L.log_line (Printf.sprintf "function (%s) {" args) [L.Enter; (L.CreateCtx args)]) ^ (Printf.sprintf "@;<1 2>@[<v 0>return %s;@]@,}" body)
 
 let ppf_apply f args =
-  Printf.sprintf "%s(@[<hv>%s@])"
+  Printf.sprintf "@[<hov 2>%s(@,%s)@]"
                  f args
 
 let ppf_apply_infix f arg1 arg2 =