diff --git a/BalanceCommand.hs b/BalanceCommand.hs
index f265b99a3..102128b7c 100644
--- a/BalanceCommand.hs
+++ b/BalanceCommand.hs
@@ -171,7 +171,7 @@ showAccountTreeWithBalances matchedacctnames =
       showAccountTreeWithBalances' matchedacctnames indentlevel prefix (Node (Account fullname _ bal) subs) =
           if isboringparent then showsubswithprefix else showacct ++ showsubswithindent
           where
-            showsubswithprefix = showsubs indentlevel (fullname++":")
+            showsubswithprefix = showsubs indentlevel (prefix++leafname++":")
             showsubswithindent = showsubs (indentlevel+1) ""
             showsubs i p = concatMap (showAccountTreeWithBalances' matchedacctnames i p) subs
             showacct = showbal ++ "  " ++ indent ++ prefix ++ leafname ++ "\n"