diff --git a/bean-query-goofy-daemon.plx b/bean-query-goofy-daemon.plx
index 8253451..3484d1a 100755
--- a/bean-query-goofy-daemon.plx
+++ b/bean-query-goofy-daemon.plx
@@ -108,7 +108,7 @@ while (1) {
     open(my $fifoFH, ">", $fifoFileName);
     print STDERR "and beginning write to it." if $VERBOSE > 1;
     while (my $line = <$beancountFH>) {
-      print STDERR "." if (++$cnt % 100) and ($VERBOSE > 1);
+      print STDERR "." unless ($cnt++ % 500) or ($VERBOSE <= 1);
       print $fifoFH $line;
     }
     close $beancountFH;