diff --git a/accounts/config/config-accounts.ledger b/accounts/config/config-accounts.ledger
index 34b269f086379f1bdc1b486278b30d2bc4a79c62..c51cf3ad682b3484fa69132ebb65580c8c30f800 100644
--- a/accounts/config/config-accounts.ledger
+++ b/accounts/config/config-accounts.ledger
@@ -41,7 +41,7 @@ account Accrued:Accounts Receivable:Main Org
 ;       to the assert in ever Expense account because of the following bug:
 ;               http://bugs.ledger-cli.org/show_bug.cgi?id=953
 
-define expenseChecker() = (tag("Receipt") !~ /^\s*$/ or tag("Invoice") !~ /^\s*$/ or tag("Statement") !~ /^\s*$/)
+define expenseChecker() = (tag("Receipt") !~ /^\s*$/ or tag("Invoice") !~ /^\s*$/ or tag("Statement") !~ /^\s*$/) and tag("Program") !~ /^\s*$/
 ; or payee =~ /NEVER CHARGED/
 
 account Expense:Main Org:Office Supplies