--- /usr/local/sbin/amavisd	Mon Feb  6 00:31:38 2017
+++ amavisd	Wed Feb 15 17:47:31 2017
@@ -1,5 +1,6 @@
 #!/usr/bin/perl -T
 
+use Devel::Peek;
 ### profiling:
 ### #!/usr/bin/perl -d:NYTProf
 ###   NYTPROF=start=no:addpid=1:forkdepth=1 amavisd -m 5 foreground
@@ -20772,6 +20773,9 @@
       push(@matchingkey, join(", ", map { sprintf("%s=>%s", $_,
                                 !defined($match->{$_})?'-':'"'.$match->{$_}.'"'
                                 ) } @names));
+if ( defined $match->{'spam_tag_level'} ) {
+	Devel::Peek::Dump($match->{'spam_tag_level'});
+}
       last  if !$get_all;
     }
     $conn_h->finish($sel)  if defined $a_ref;  # only if not all read