--- a/branches/0.71/lib/SOAP/Lite.pm
+++ b/branches/0.71/lib/SOAP/Lite.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: Lite.pm 415 2012-07-15 09:22:04Z kutterma $
+# $Id: Lite.pm 416 2012-07-15 09:35:17Z kutterma $
 #
 # ======================================================================
 
@@ -1462,8 +1462,11 @@
     # check for special attribute
     return "$indent$value" if exists $attrs->{_xml} && delete $attrs->{_xml};
 
-    warn "Element '$tag' can't be allowed in valid XML message. Died."
-        if $tag !~ /^(?![xX][mM][lL])$SOAP::Constants::NSMASK$/o;
+    die "Element '$tag' can't be allowed in valid XML message. Died."
+        if $tag !~ /^$SOAP::Constants::NSMASK$/o;
+
+	warn "Element '$tag' uses the reserved prefix 'XML' (in any case)"
+		if $tag !~ /^(?![Xx][Mm][Ll])/;
 
     my $prolog = $readable ? "\n" : "";
     my $epilog = $readable ? "\n" : "";