diff --git a/Ledger/AccountName.hs b/Ledger/AccountName.hs
index 31708d3b4..af342f3ce 100644
--- a/Ledger/AccountName.hs
+++ b/Ledger/AccountName.hs
@@ -152,4 +152,4 @@ isnegativepat pat = negateprefix `isPrefixOf` pat
 abspat pat = if isnegativepat pat then drop (length negateprefix) pat else pat
 positivepats = filter (not . isnegativepat)
 negativepats = filter isnegativepat
-matchregex pat str = containsRegex (mkRegexWithOpts pat True True) str
+matchregex pat str = containsRegex (mkRegexWithOpts pat True False) str
diff --git a/Tests.hs b/Tests.hs
index f19c95b5d..089065445 100644
--- a/Tests.hs
+++ b/Tests.hs
@@ -514,6 +514,14 @@ registercommand_tests = TestList [
      "")
      $ showRegisterReport [] ["cash"] l
   ,
+  "register report with account pattern, case insensitive" ~:
+  do 
+    l <- sampleledger
+    assertequal (
+     "2008/06/03 eat & shop           assets:cash                     $-2          $-2\n" ++
+     "")
+     $ showRegisterReport [] ["cAsH"] l
+  ,
   "register report with display expression" ~:
   do 
     l <- sampleledger