--- rxvt-unicode/src/perl/selection-autotransform	2006/01/13 04:19:41	1.3
+++ rxvt-unicode/src/perl/selection-autotransform	2006/01/15 05:14:12	1.4
@@ -20,6 +20,7 @@
    }
 
    for (my $idx = 0; defined (my $res = urxvt::untaint $self->x_resource ("selection-autotransform.$idx")); $idx++) {
+      $res = $self->locale_decode ($res);
       my $transform = eval "sub { $res }";
 
       if ($transform) {