diff --git a/wst/trunk/base_json_formatter.pas b/wst/trunk/base_json_formatter.pas
index 98a3034a9..4738f590b 100644
--- a/wst/trunk/base_json_formatter.pas
+++ b/wst/trunk/base_json_formatter.pas
@@ -1878,7 +1878,7 @@ begin
   Result := nil;
 end;
 
-{$WARNINGS OFF}
+{$WARNINGS OFF} {$HINTS OFF}
 function TNullStackItem.CreateStringBuffer(const AName : string; const AValue : TJSONStringType) : TJSONData;
 begin
   RaiseNotApplicable();
@@ -1913,7 +1913,7 @@ function TNullStackItem.NilItem(AItem : TJSONData) : TJSONData;
 begin
   RaiseNotApplicable();
 end;
-{$WARNINGS ON}
+{$WARNINGS ON} {$HINTS 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 d614059b7..60477ee91 100644
--- a/wst/trunk/base_xmlrpc_formatter.pas
+++ b/wst/trunk/base_xmlrpc_formatter.pas
@@ -2088,7 +2088,7 @@ end;
 
 { TSimpleTypeStackItem }
 
-{$WARNINGS OFF}
+{$WARNINGS OFF} {$HINTS OFF}
 function TSimpleTypeStackItem.FindNode(var ANodeName: string): TDOMNode;
 begin
   raise EXmlRpcException.CreateFmt(SERR_InsupportedOperation,['FindNode']);
@@ -2106,7 +2106,7 @@ function TSimpleTypeStackItem.GetScopeItemNames(const AReturnList: TStrings): In
 begin
   raise EXmlRpcException.CreateFmt(SERR_InsupportedOperation,['GetScopeItemNames']);
 end;
-{$WARNINGS ON}
+{$WARNINGS ON} {$HINTS ON}
 
 
 end.
diff --git a/wst/trunk/date_utils.pas b/wst/trunk/date_utils.pas
index 90a17cf5e..06e9499b4 100644
--- a/wst/trunk/date_utils.pas
+++ b/wst/trunk/date_utils.pas
@@ -114,7 +114,7 @@ resourcestring
 
 implementation
 
-uses Math, DateUtils;
+uses DateUtils;
 
 function IncHour(const AValue: TDateTime; const ANumberOfHours: Int64): TDateTime;
 begin
@@ -214,7 +214,7 @@ var
       Result := TryStrToInt(Copy(buffer,locStartPos,(bufferPos-locStartPos)),AValue);
   end;
 
-  function ReadMiliSeconds(out AValue : Integer; const ASeparatorAtEnd : Char) : Boolean;
+  function ReadMiliSeconds(out AValue : Integer) : Boolean;
   var
     locDigitCount, locRes, itemp, locErcode : Integer;
   begin
@@ -281,7 +281,7 @@ begin
                 ok := ReadInt(ss,#0);
                 if ok and ( bufferPos < bufferLen ) and ( buffer[bufferPos] = '.' ) then begin
                   Inc(bufferPos);
-                  ok := ReadMiliSeconds(ssss,#0);
+                  ok := ReadMiliSeconds(ssss);
                 end else begin
                   ssss := 0;
                 end;
@@ -325,6 +325,7 @@ begin
     raise EConvertError.CreateFmt(SERR_InvalidDate,[AStr]);
 end;
 
+{$HINTS OFF}
 function xsd_DateTimeToStr(const ADate : TDateTimeRec) : string;
 var
   locDate : TDateTime;
@@ -343,6 +344,7 @@ begin
   else
     Result := Format('%.4d-%.2d-%.2dT%.2d:%.2d:%.2d.%.3dZ',[y,m,d, hh,mn,ss,ssss]);
 end;
+{$HINTS ON}
 
 function xsd_DateTimeToStr(const ADate : TDateTime) : string;
 var