--- intltool-merge.in.orig	Fri Oct 31 14:46:55 2003
+++ intltool-merge.in	Fri Oct 31 14:47:27 2003
@@ -381,7 +381,7 @@
 {
     my ($pre_encoded) = @_;
 
-    my @list_of_chars = unpack ('U*', $pre_encoded);
+    my @list_of_chars = unpack ('C*', $pre_encoded);
 
     if ($PASS_THROUGH_ARG) {
         return join ('', map (&entity_encode_int_even_high_bit, @list_of_chars));