diff --git a/ChangeLog b/ChangeLog
index 40591084ab..0a42e0c53a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -4,6 +4,8 @@
 	* save these flags only if the entry is attached to a Bill.
 	* add a Billable column to Bill register
 
+	* add gncQueryAddBooleanMatch() convenience function
+	
 2002-07-09  Derek Atkins  <derek@ihftp.com>
 
 	* "global-replace for-each-in-order for-each" because the former
diff --git a/src/engine/QueryNew.c b/src/engine/QueryNew.c
index a45226a0f0..36900b1801 100644
--- a/src/engine/QueryNew.c
+++ b/src/engine/QueryNew.c
@@ -1040,6 +1040,16 @@ void gncQuerySetBook (QueryNew *q, GNCBook *book)
 			gnc_book_get_guid(book), QUERY_AND);
 }
 
+void gncQueryAddBooleanMatch (QueryNew *q, GSList *param_list, gboolean value,
+			      QueryOp op)
+{
+  QueryPredData_t pdata;
+  if (!q || !param_list) return;
+
+  pdata = gncQueryBooleanPredicate (COMPARE_EQUAL, value);
+  gncQueryAddTerm (q, param_list, pdata, op);
+}
+
 /**********************************************************************/
 /* PRIVATE PUBLISHED API FUNCTIONS                                    */
 
diff --git a/src/engine/QueryNew.h b/src/engine/QueryNew.h
index 816e23db6c..267db0a316 100644
--- a/src/engine/QueryNew.h
+++ b/src/engine/QueryNew.h
@@ -72,6 +72,9 @@ void gncQueryAddGUIDListMatch (QueryNew *q, GSList *param_list,
 			       GList *guid_list, guid_match_t options,
 			       QueryOp op);
 
+void gncQueryAddBooleanMatch (QueryNew *q, GSList *param_list, gboolean value,
+			      QueryOp op);
+
 /* Run the query: */
 GList * gncQueryRun (QueryNew *query);