diff --git a/masses/rule-qa/reports-from-logs b/masses/rule-qa/reports-from-logs
index 92a470a..f86a6c6 100755
--- a/masses/rule-qa/reports-from-logs
+++ b/masses/rule-qa/reports-from-logs
@@ -111,14 +111,20 @@
   my @files = sort readdir(CORPUS);
   closedir(CORPUS);
 
+  warn "found ", $#files + 1, " files in $logsdir";
+
   @files = grep {
     /^(?:spam|ham)-(?:net-)?\S+\.log$/ && -f "$logsdir/$_" && -M _ < 10 
   } @files;
 
+  warn "kept ", $#files + 1, " files";
+
   foreach my $file (@files) {
     my $tag = 0;
     my $headers = '';
 
+    warn "processing $logsdir/$file";
+
     open(FILE, "$logsdir/$file") or warn "cannot read $logsdir/$file";
     while (my $line = <FILE>) {
       last if $line !~ /^#/;