diff --git a/hledger/Hledger/Cli/Register.hs b/hledger/Hledger/Cli/Register.hs
index 19cb05ee9..159855374 100644
--- a/hledger/Hledger/Cli/Register.hs
+++ b/hledger/Hledger/Cli/Register.hs
@@ -268,7 +268,7 @@ summarisePostings ps =
     where
       (tos,froms) = partition (fromMaybe False . isNegativeMixedAmount . pamount) ps
 
-simplifyPostingAccounts = nub . map (accountLeafName . paccount)
+simplifyPostingAccounts = map accountLeafName . nub . map paccount
 commafy = intercalate ", "
 
 filterTransactionPostings :: Matcher -> Transaction -> Transaction