--- rxvt-unicode/src/urxvt.pm	2008/06/15 14:07:58	1.168
+++ rxvt-unicode/src/urxvt.pm	2008/06/15 14:54:44	1.169
@@ -1282,7 +1282,7 @@
 sub resource($$;$) {
    my ($self, $name) = (shift, shift);
    unshift @_, $self, $name, ($name =~ s/\s*\+\s*(\d+)$// ? $1 : 0);
-   &urxvt::term::_resource
+   goto &urxvt::term::_resource
 }
 
 =item $value = $term->x_resource ($pattern)