*** empty log message ***

diff --git a/src/perl/tabbed b/src/perl/tabbed
index 0bd7c868c23e9b8c3b3ce308584c60e7e03f7680..fc7fe68dc98b3e2515344c251a42dcd8df623802 100644 (file)
--- a/src/perl/tabbed
+++ b/src/perl/tabbed
@@ -72,7 +72,7 @@ sub make_current {
 
    $self->configure;
 
-   for my $atom ($tab->XListProperties ($tab->parent)) {
+   for my $atom ($tab->XListProperties) {
       warn "$atom\n";
    }