diff --git a/wst/trunk/date_utils.pas b/wst/trunk/date_utils.pas
index 8f3a484e1..52d57dbae 100644
--- a/wst/trunk/date_utils.pas
+++ b/wst/trunk/date_utils.pas
@@ -751,6 +751,7 @@ function xsd_DurationToStr(const AValue : TDurationRec) : string;
 var
   strTime, strDate : string;
 begin
+  Result := '';
   if ( AValue.FractionalSecond > 0 ) then begin
     strTime := IntToStr(AValue.Second) + '.' + IntToStr(AValue.FractionalSecond) + 'S';
   end else begin