diff --git a/Ledger/Ledger.hs b/Ledger/Ledger.hs
index ea3e611c5..6e8be2367 100644
--- a/Ledger/Ledger.hs
+++ b/Ledger/Ledger.hs
@@ -68,7 +68,7 @@ cacheLedger l pats =
                (Map.fromList [(a,nullamt) | a <- ans])
         amap = Map.fromList [(a, Account a (tmap ! a) (bmap ! a)) | a <- ans]
     in
-      Ledger l' ant amap lprecision
+      Ledger l'' ant amap lprecision
 
 -- | keep only entries whose description matches one of the
 -- description patterns, if any, and which have at least one
diff --git a/README b/README
index 5c88e038f..d4426cd29 100644
--- a/README
+++ b/README
@@ -30,7 +30,5 @@ possible, see the ledger manual for more info:
 
 Bugs:
 
-* register transactions should be filtered when account patterns are provided
-* register shows $ when it's not in ledger
 * filtered balance reports should show a total
-* filtered balance reports should show the full account names
+* register uses $ when no currency is specified