--- lib/Locale/Po4a/TransTractor.pm     27 Feb 2005 00:05:01 -0000      1.59
+++ lib/Locale/Po4a/TransTractor.pm     13 Mar 2005 13:41:27 -0000
@@ -822,6 +822,10 @@
 	}
     }

+    if ($self->{TT}{po_in}->get_charset ne "CHARSET") {
+	Encode::from_to($string, $in_charset, $self->{TT}{po_in}->get_charset);
+    }
+
     my $transstring = $self->{TT}{po_in}->gettext($string,
 					'wrap'      => $options{'wrap'}||0,
 					'wrapcol'   => $options{'wrapcol'});