diff --git a/hledger-lib/Hledger/Read/Common.hs b/hledger-lib/Hledger/Read/Common.hs
index 86b8a5dae..ea9ce6987 100644
--- a/hledger-lib/Hledger/Read/Common.hs
+++ b/hledger-lib/Hledger/Read/Common.hs
@@ -831,7 +831,7 @@ commoditysymbolp =
 
 quotedcommoditysymbolp :: TextParser m CommoditySymbol
 quotedcommoditysymbolp =
-  between (char '"') (char '"') $ takeWhile1P Nothing f
+  between (char '"') (char '"') $ takeWhileP Nothing f
   where f c = c /= ';' && c /= '\n' && c /= '\"'
 
 simplecommoditysymbolp :: TextParser m CommoditySymbol
diff --git a/hledger/test/ledger-compat/syntax/hledger-other.test b/hledger/test/ledger-compat/syntax/hledger-other.test
index 5ca4d6e9d..e77af5403 100644
--- a/hledger/test/ledger-compat/syntax/hledger-other.test
+++ b/hledger/test/ledger-compat/syntax/hledger-other.test
@@ -54,6 +54,7 @@ assert 1
 bucket Assets:Checking
 A Assets:Checking
 C $1 = USD 1
+C 1 "" = $1
 capture Expenses:Deductible:Medical Medical
 check 1
 define var_name=$100