diff --git a/src/Fantomas/Context.fs b/src/Fantomas/Context.fs
index c001dd3b96..7b5bd52bdd 100644
--- a/src/Fantomas/Context.fs
+++ b/src/Fantomas/Context.fs
@@ -304,7 +304,10 @@ let internal atCurrentColumnIndent (f : _ -> Context) (ctx : Context) =
 
 /// Function composition operator
 let internal (+>) (ctx : Context -> Context) (f : _ -> Context) x =
-    f (ctx x)
+    let y = ctx x
+    match y.WriterModel.Mode with
+    | ShortExpression infos when infos |> Seq.exists (fun x -> x.ConfirmedMultiline) -> y
+    | _ -> f y
 
 /// Break-line and append specified string
 let internal (++) (ctx : Context -> Context) (str : string) x =