diff --git a/hledger-ui/Hledger/UI/AccountsScreen.hs b/hledger-ui/Hledger/UI/AccountsScreen.hs
index a9a066c1d..6635a4d04 100644
--- a/hledger-ui/Hledger/UI/AccountsScreen.hs
+++ b/hledger-ui/Hledger/UI/AccountsScreen.hs
@@ -82,7 +82,7 @@ initAccountsScreen mselacct d st@AppState{
     displayitem ((fullacct, shortacct, indent), bal) =
       (indent
       ,fullacct
-      ,if tree_ ropts' then shortacct else fullacct
+      ,if flat_ ropts' then fullacct else shortacct
       ,map showAmountWithoutPrice amts -- like showMixedAmountOneLineWithoutPrice
       )
       where