--- deliantra/server/ext/map-tags.ext	2007/09/11 15:33:34	1.3
+++ deliantra/server/ext/map-tags.ext	2007/09/11 15:40:01	1.4
@@ -154,25 +154,13 @@
 sub find($) {
    my ($tag) = @_;
 
-   my @res;
-
    utf8::encode (my $key = $tag);
    BDB::db_get $db_target, undef, $key, my $data;
    utf8::decode $data;
 
-   for my $map (
+   map { $_->load; $_->find_tagged_objects ($tag) }
       grep $_,
       map { cf::map::find $_ }
       grep s/^s//,
       split /\x00/, $data
-   ) {
-      warn "map $map,$tag\n";#d#
-      $map->load;
-
-      push @res, $map->find_tagged_objects ($tag);
-
-      warn "tag<$tag>map<$map>res<@res>\n";#d#
-   }
-
-   @res
 }