--- deliantra/Deliantra-Client/DC/Protocol.pm	2007/07/22 19:34:58	1.126
+++ deliantra/Deliantra-Client/DC/Protocol.pm	2007/07/23 15:30:45	1.127
@@ -214,8 +214,13 @@
       my $attr = $arg->{attr};
 
       for (my $i = 0; $i < $#$attr; $i += 2) {
-         $w->{$attr->[$i]} = $attr->[$i+1];
-         $w->{parent}->realloc if $attr->[$i] =~ /^c_/ && $w->{visible};#d# really?
+         my ($member, $value) = @$attr[$i, $i+1];
+         if (defined $value) {
+            $w->{$member} = $value;
+         } else {
+            delete $w->{$member};
+         }
+         $w->{parent}->realloc if $member =~ /^c_/ && $w->{visible};
       }
    });