diff --git a/wst/trunk/base_binary_formatter.pas b/wst/trunk/base_binary_formatter.pas
index d7f5d9471..74fb3b5c7 100644
--- a/wst/trunk/base_binary_formatter.pas
+++ b/wst/trunk/base_binary_formatter.pas
@@ -2094,6 +2094,7 @@ begin
   Inc(FIndex);
 end;
 
+{$WARNINGS OFF}
 function TArrayStackItem.CreateInnerBuffer(const ADataType: TDataType): PDataBuffer;
 begin
   raise EBinaryFormatterException.Create('Array do not support "inner value" feature.');
@@ -2103,6 +2104,7 @@ function TArrayStackItem.GetInnerBuffer(): PDataBuffer;
 begin
   raise EBinaryFormatterException.Create('Array do not support "inner value" feature.');
 end;
+{$WARNINGS ON}
 
 procedure TArrayStackItem.NilCurrentScope();
 begin
diff --git a/wst/trunk/base_json_formatter.pas b/wst/trunk/base_json_formatter.pas
index 5acaf5dd6..b5c51f1df 100644
--- a/wst/trunk/base_json_formatter.pas
+++ b/wst/trunk/base_json_formatter.pas
@@ -1064,7 +1064,6 @@ var
   uint64Data : QWord;
 {$ENDIF HAS_QWORD}
   strData : string;
-  objData : TObject;
   boolData : Boolean;
   enumData : TEnumIntType;
   floatDt : Extended;
@@ -1321,11 +1320,9 @@ var
   uint64Data : QWord;
 {$ENDIF HAS_QWORD}
   strData : string;
-  objData : TObject;
   boolData : Boolean;
   enumData : TEnumIntType;
   floatDt : Extended;
-  recObject : Pointer;
   wideStrData : WideString;
 {$IFDEF WST_UNICODESTRING}
   unicodeStrData : UnicodeString;
@@ -1812,6 +1809,7 @@ begin
   Result := nil;
 end;
 
+{$WARNINGS OFF}
 function TNullStackItem.CreateStringBuffer(const AName : string; const AValue : TJSONStringType) : TJSONData;
 begin
   RaiseNotApplicable();
@@ -1846,6 +1844,7 @@ function TNullStackItem.NilItem(AItem : TJSONData) : TJSONData;
 begin
   RaiseNotApplicable();
 end;
+{$WARNINGS ON}
 
 function TNullStackItem.GetScopeItemNames(const AReturnList : TStrings) : Integer;
 begin
diff --git a/wst/trunk/base_xmlrpc_formatter.pas b/wst/trunk/base_xmlrpc_formatter.pas
index 5b570684f..1d4b605ec 100644
--- a/wst/trunk/base_xmlrpc_formatter.pas
+++ b/wst/trunk/base_xmlrpc_formatter.pas
@@ -642,6 +642,7 @@ begin
     raise EXmlRpcException.Create('TArrayStackItem.PopIndex() >> No saved index.');
   FIndex := FIndexStack[FIndexStackIDX];
   Dec(FIndexStackIDX);
+  Result := FIndex;
 end;
 
 { TXmlRpcBaseFormatter }