anchor.diff:    tempValue : integer;
   begin
     Result := 0;
  -  if FNode^.NodeValue <> '' then
  -  begin
  -    tmp := FNode^.NodeValue;
  +  if FNode^.Text <> '' then
  +  begin
  +    tmp := FNode^.Text;
       if TryToConvertToInteger(tmp, tempValue) then
         Result := tempValue
       else
  
positive.code: 
  procedure TImpl_oxml_mXmlElement._SetDateValue(const aValue: TDateTime);
  begin
    FNode^.NodeValue := mISOTime.ISODateToStr(aValue);
  end;
  
  function TImpl_oxml_mXmlElement._GetDateValue: TDateTime;
  
negative.code:   tempValue : TDateTime;
  begin
    Result := 0;
    if FNode^.Text <> '' then
    begin
      tmp := FNode^.Text;
      if TryISOStrToDate(tmp, tempValue) then
        Result := tempValue
      else
  