Index: misc/findcombinable.pl
===================================================================
--- misc/findcombinable.pl	(revision 89fbc5de53910554c7167b12c82cab8c5eb2dce6)
+++ misc/findcombinable.pl	(revision e4e7407c6608e107411d338d4820da5109a51f66)
@@ -5,8 +5,14 @@
 use utf8;
 
+use Encode;
 use Unicode::Normalize qw(NFC NFKC);
+binmode STDOUT => 'encoding(utf8)';
+binmode STDERR => 'encoding(utf8)';
 
 my $top = shift @ARGV || exit;
 if (! -d $top) { exit; }
+
+my $utf8 = find_encoding("utf8");
+$top = $utf8->decode($top);
 
 checkdir($top);
@@ -16,7 +22,4 @@
     
     if ($str ne NFC($str)) {
-        return 1;
-    }
-    if ($str ne NFKC($str)) {
         return 1;
     }
@@ -36,4 +39,5 @@
     while (my $entry = shift @entries) {
         next if ($entry =~ /^\.+$/);
+        $entry = $utf8->decode($entry);
         if (match($entry)) {
             print "'$target/$entry' can be composed\n";