--- db/prgsrc/chronicles.pl	2003/03/17 15:47:22	1.3
+++ db/prgsrc/chronicles.pl	2003/03/17 15:49:27	1.4
@@ -23,7 +23,7 @@ The database, user and password are hard
 
 Boris Veytsman 
 
-=head1 $Id: chronicles.pl,v 1.3 2003/03/17 15:47:22 boris Exp $
+=head1 $Id: chronicles.pl,v 1.4 2003/03/17 15:49:27 boris Exp $
 
 =cut
 
@@ -69,7 +69,7 @@ while (my $file=readdir(DIR)) {
 }
 closedir DIR;
 foreach my $name (keys %dbtochronicles) {
-    if ($name =~ /boris/) {
+    if ($dbtochronicles{$name} =~ /boris/) {
 	print "$name -> $dbtochronicles{$name}\n";
     }
 }