diff --git a/extra/hledger-rewrite.hs b/extra/hledger-rewrite.hs
index 50874f5a8..2b51e1a56 100755
--- a/extra/hledger-rewrite.hs
+++ b/extra/hledger-rewrite.hs
@@ -59,7 +59,7 @@ amountexprp =
   choice [
      AmountMultiplier <$> (do char '*'
                               many spacenonewline
-                              (q,_,_,_,_) <- numberp
+                              (q,_,_,_) <- numberp
                               return q)
     ,AmountLiteral <$> many anyChar
     ]