diff --git a/hledger-lib/Hledger/Query.hs b/hledger-lib/Hledger/Query.hs
index ac58d018f..08e98e79a 100644
--- a/hledger-lib/Hledger/Query.hs
+++ b/hledger-lib/Hledger/Query.hs
@@ -395,7 +395,7 @@ same [] = True
 same (a:as) = all (a==) as
 
 -- | Remove query terms (or whole sub-expressions) not matching the given
--- predicate from this query.  XXX Semantics not yet clear.
+-- predicate from this query.  XXX Semantics not completely clear.
 filterQuery :: (Query -> Bool) -> Query -> Query
 filterQuery p = simplifyQuery . filterQuery' p
 
diff --git a/hledger/Hledger/Cli/Register.hs b/hledger/Hledger/Cli/Register.hs
index 32d698657..da5bdb5cc 100644
--- a/hledger/Hledger/Cli/Register.hs
+++ b/hledger/Hledger/Cli/Register.hs
@@ -68,7 +68,7 @@ postingsReportAsCsv (_,is) =
 postingsReportItemAsCsvRecord :: PostingsReportItem -> Record
 postingsReportItemAsCsvRecord (_, _, _, p, b) = [date,desc,acct,amt,bal]
   where
-    date = showDate $ postingDate p
+    date = showDate $ postingDate p -- XXX csv should show date2 with --date2
     desc = maybe "" tdescription $ ptransaction p
     acct = bracket $ paccount p
       where