diff --git a/hledger-web/Hledger/Web/Handler/RegisterR.hs b/hledger-web/Hledger/Web/Handler/RegisterR.hs
index aadb97a04..37ea1a369 100644
--- a/hledger-web/Hledger/Web/Handler/RegisterR.hs
+++ b/hledger-web/Hledger/Web/Handler/RegisterR.hs
@@ -34,8 +34,8 @@ getRegisterR = do
       acctQuery = fromMaybe Any (inAccountQuery qopts)
       acctlink acc = (RegisterR, [("q", accountQuery acc)])
       otherTransAccounts =
-          zip ("" : repeat (","::T.Text)) .
-          preferReal . otherTransactionAccounts m acctQuery
+          addCommas . preferReal . otherTransactionAccounts m acctQuery
+      addCommas xs = zip xs $ tail $ (","<$xs) ++ [T.empty]
       r@(balancelabel,items) = accountTransactionsReport ropts j m acctQuery
       balancelabel' = if isJust (inAccount qopts) then balancelabel else "Total"
   defaultLayout $ do
diff --git a/hledger-web/templates/register.hamlet b/hledger-web/templates/register.hamlet
index 53b197622..3ddd0674f 100644
--- a/hledger-web/templates/register.hamlet
+++ b/hledger-web/templates/register.hamlet
@@ -26,10 +26,9 @@
           <td>
             #{textElideRight 30 (tdescription tacct)}
           <td .account>
-            $forall (comma, Posting { paccount = acc }) <- otherTransAccounts torig
-              #{comma}
+            $forall (Posting { paccount = acc }, comma) <- otherTransAccounts torig
               <a href="@?{acctlink acc}##{tindex torig}" title="#{acc}">
-                #{accountSummarisedName acc}
+                #{accountSummarisedName acc}</a>#{comma}
           <td .amount style="text-align:right; white-space:nowrap;">
             $if not split || not (isZeroMixedAmount amt)
               ^{mixedAmountAsHtml amt}