--- rxvt-unicode/src/perl/tabbed	2006/02/11 01:58:28	1.16
+++ rxvt-unicode/src/perl/tabbed	2006/02/11 02:05:28	1.18
@@ -91,11 +91,12 @@
    my $tab = $self->{cur};
 
    my $wm_normal_hints = $self->XInternAtom ("WM_NORMAL_HINTS");
-   my $wm_state        = $self->XInternAtom ("WM_STATE");
 
    my %our_props = map +($_ => undef), $self->XListProperties ($self->parent);
 
-   delete $our_props{$wm_state};
+   delete $our_props{$self->XInternAtom ($_)}
+      for qw(WM_STATE WM_ICON_SIZE
+             _NET_WM_VISIBLE_NAME _NET_WM_VISIBLE_ICON_NAME _NET_WM_ICON_GEOMETRY _NET_FRAME_EXTENTS);
 
    for my $atom ($tab->XListProperties ($tab->parent)) {
       my ($type, $format, $items) = $self->XGetWindowProperty ($tab->parent, $atom);