diff --git a/bean-query-goofy-daemon.plx b/bean-query-goofy-daemon.plx
index 8cfef8c..e258600 100755
--- a/bean-query-goofy-daemon.plx
+++ b/bean-query-goofy-daemon.plx
@@ -84,7 +84,7 @@ while (1) {
     print STDERR "sleep for 2 seconds\n" if $VERBOSE > 2;
     sleep 2;
     next;
-  } elsif ($query{question} !~  /^[\-\@\w.\s\"\'\_\(\)]+$/) {
+  } elsif ($query{question} !~  /^[\,\=\~\-\@\w.\s\"\'\_\(\)]+$/) {
     print STDERR "Query string $query{question} looks suspicious, not running beancount query!\n";
     (tied %query)->shlock;
     $query{fifoName} = mktemp("REJECTED_beancount-query-fifo-this-file-does-not-exist_${$}_XXXXXXXXX");