--- a/branches/0.71/lib/SOAP/Transport/HTTP.pm
+++ b/branches/0.71/lib/SOAP/Transport/HTTP.pm
@@ -4,7 +4,7 @@
 # SOAP::Lite is free software; you can redistribute it
 # and/or modify it under the same terms as Perl itself.
 #
-# $Id: HTTP.pm 408 2012-06-23 20:31:00Z kutterma $
+# $Id: HTTP.pm 413 2012-07-15 08:35:24Z kutterma $
 #
 # ======================================================================
 
@@ -130,6 +130,8 @@
     my ( $self, %parameters ) = @_;
     my ( $context, $envelope, $endpoint, $action, $encoding, $parts ) =
       @parameters{qw(context envelope endpoint action encoding parts)};
+
+    $encoding ||= 'UTF-8';
 
     $endpoint ||= $self->endpoint;