--- deliantra/server/ext/item-worldmap.ext	2007/07/23 17:53:54	1.7
+++ deliantra/server/ext/item-worldmap.ext	2007/07/23 21:02:50	1.8
@@ -21,7 +21,7 @@
    my $name = $ws->{ns}->pl->ob->name;
 
    while (my ($k, $v) = each %PLAYERINFO) {
-      my $label = $old->{$k} || do {
+      my $label = (delete $old->{$k}) || do {
          my $label = $ws->new (Label =>
             text     => $k,
             fontsize => 0.2,
@@ -43,6 +43,8 @@
    }
 
    $ws->{labels} = $new;
+
+   #$_->destroy for values %$old;#d#
 }
 
 sub create_widgets {