diff --git a/wst/trunk/base_soap_formatter.pas b/wst/trunk/base_soap_formatter.pas
index 3114d5249..30a529c7d 100644
--- a/wst/trunk/base_soap_formatter.pas
+++ b/wst/trunk/base_soap_formatter.pas
@@ -357,10 +357,21 @@ type
 {$M-}
 
 
+  function BoolToSoapBool(const AValue : Boolean) : string;{$IFDEF USE_INLINE}inline;{$ENDIF}
+  
 implementation
 Uses {$IFDEF WST_DELPHI}XMLDoc,XMLIntf,{$ELSE}XMLWrite, XMLRead,wst_fpc_xml,{$ENDIF}
      StrUtils, imp_utils;
 
+
+function BoolToSoapBool(const AValue : Boolean) : string;
+begin
+  if AValue then
+    Result := 'true'
+  else
+    Result := 'false';
+end;
+
 { TStackItem }
 
 function TStackItem.GetItemsCount: Integer;
@@ -741,7 +752,7 @@ function TSOAPBaseFormatter.PutBool(
   const AData     : Boolean
 ): TDOMNode;
 begin
-  Result := InternalPutData(AName,ATypeInfo,LowerCase(BoolToStr(AData)));
+  Result := InternalPutData(AName,ATypeInfo,BoolToSoapBool(AData));
 end;
 
 function TSOAPBaseFormatter.PutInt64(
@@ -1519,7 +1530,7 @@ begin
     tkBool :
       begin
         boolData := Boolean(AData);
-        dataBuffer := BoolToStr(boolData);
+        dataBuffer := BoolToSoapBool(boolData);
       end;
     {$ENDIF}
     tkInteger :
diff --git a/wst/trunk/tests/test_suite/testformatter_unit.pas b/wst/trunk/tests/test_suite/testformatter_unit.pas
index 14c1cd1c0..507b47002 100644
--- a/wst/trunk/tests/test_suite/testformatter_unit.pas
+++ b/wst/trunk/tests/test_suite/testformatter_unit.pas
@@ -1085,7 +1085,7 @@ begin
     f.EndScope();
 
     s := TMemoryStream.Create();
-    f.SaveToStream(s);
+    f.SaveToStream(s); s.SaveToFile(ClassName + '.Test_Bool.xml');
     intVal_1 := False;
     intVal_3 := True;