diff --git a/Ledger/RawLedger.hs b/Ledger/RawLedger.hs
index 57414ce77..648905d6a 100644
--- a/Ledger/RawLedger.hs
+++ b/Ledger/RawLedger.hs
@@ -24,6 +24,7 @@ instance Show RawLedger where
               (length $ periodic_entries l))
              (length accounts)
              (show accounts)
+             -- ++ (show $ rawLedgerTransactions l)
              where accounts = flatten $ rawLedgerAccountNameTree l
 
 rawLedgerTransactions :: RawLedger -> [Transaction]