--- rxvt-unicode/src/perl/selection	2006/01/17 16:53:47	1.30
+++ rxvt-unicode/src/perl/selection	2006/01/19 09:47:15	1.31
@@ -14,7 +14,8 @@
 
    for (my $idx = 0; defined (my $res = $self->x_resource ("selection.pattern-$idx")); $idx++) {
       no re 'eval'; # just to be sure
-      $res = utf8::encode $self->locale_decode ($res);
+      $res = $self->locale_decode ($res);
+      utf8::encode $res;
       push @{ $self->{patterns} }, qr/$res/;
    }