--- rxvt-unicode/src/perl/selection-autotransform	2012/06/06 15:06:41	1.9
+++ rxvt-unicode/src/perl/selection-autotransform	2012/06/10 13:58:06	1.10
@@ -16,7 +16,7 @@
 sub on_init {
    my ($self) = @_;
 
-   for (my $idx = 0; defined (my $res = $self->x_resource ("selection-autotransform.$idx")); $idx++) {
+   for (my $idx = 0; defined (my $res = $self->x_resource ("%.$idx")); $idx++) {
       $res = $self->locale_decode ($res);
       my $transform = eval "sub { $res }";