--- rxvt-unicode/src/perl/tabbed	2006/01/20 12:17:41	1.2
+++ rxvt-unicode/src/perl/tabbed	2006/01/20 12:18:05	1.3
@@ -72,7 +72,7 @@
 
    $self->configure;
 
-   for my $atom ($tab->XListProperties) {
+   for my $atom ($tab->XListProperties ($tab->parent)) {
       warn "$atom\n";
    }