diff --git a/data/15-regressions.blt b/data/15-regressions.blt
index 234c1d7..1954c40 100644
--- a/data/15-regressions.blt
+++ b/data/15-regressions.blt
@@ -1084,9 +1084,20 @@ func = do
   -- but that's a type error.
   let jebnaZiegui = UtatUcaOrgmqf
         $ eqazak
-          (NO.kaeyuo . NO.FUGOKovsxq)
-          (maybe (NO.kaeyuo NO.UvmsoItqOguTOLqtuld)
-                 (NO.kaeyuo . NO.XvswJUBeroci)
-          )
-          nogcVassuVvbFiew
+            (NO.kaeyuo . NO.FUGOKovsxq)
+            (maybe (NO.kaeyuo NO.UvmsoItqOguTOLqtuld)
+                   (NO.kaeyuo . NO.XvswJUBeroci)
+            )
+            nogcVassuVvbFiew
       kyxson = vzahxEooRecOriqdp apneZejuzTfuQkuJosqoa
+
+#test base level for operands
+func = do
+  pure
+    $!! otherFunc
+          (SomeLargeRecord { aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa = 1
+                           , bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb = 2
+                           , cccccccccccccccccccccccccccccccccc = 3
+                           }
+          )
+          anotherArgument
diff --git a/source/library/Language/Haskell/Brittany/Internal/ToBriDoc/OpTree.hs b/source/library/Language/Haskell/Brittany/Internal/ToBriDoc/OpTree.hs
index 45706d2..3313f0a 100644
--- a/source/library/Language/Haskell/Brittany/Internal/ToBriDoc/OpTree.hs
+++ b/source/library/Language/Haskell/Brittany/Internal/ToBriDoc/OpTree.hs
@@ -425,7 +425,7 @@ layoutOpTree allowSinglelinePar = \case
         let singlelineUnlessFree = case indentPolicy of
               IndentPolicyLeft     -> docForceSingleline
               IndentPolicyMultiple -> docForceSingleline
-              IndentPolicyFree     -> id
+              IndentPolicyFree     -> docSetBaseY
         let curIsPrec0 = case fixity of
               Nothing                -> False
               Just (Fixity _ prec _) -> prec == 0