--- rxvt-unicode/src/perl/background	2012/07/05 20:05:19	1.73
+++ rxvt-unicode/src/perl/background	2012/07/14 08:42:54	1.74
@@ -969,7 +969,7 @@
 sub set_expr {
    my ($self, $expr) = @_;
 
-   $self->{root} = [];
+   $self->{root} = []; # the outermost frame
    $self->{expr} = $expr;
    $self->recalculate;
 }
@@ -1041,7 +1041,7 @@
 
    local $self  = $arg_self;
    local $HOME  = $ENV{HOME};
-   local $frame = [];
+   local $frame = $self->{root};
 
    ($x, $y, $w, $h) = $self->background_geometry ($self->{border});