anchor.diff:          end
         end
         else if ATag = HproseTagError then
  -        raise Exception.Create(HproseReader.ReadString());
  +        raise Exception.Create(string(HproseReader.ReadString()));
         if ATag <> HproseTagEnd then
  -        raise Exception.Create('Wrong Response: ' + #13#10 + StringOf(Data));
  +        raise Exception.Create('Wrong Response: ' + #13#10 + string(StringOf(Data)));
       finally
         HproseReader.Free;
         InStream.Free;
  
positive.code:   HproseWriter := THproseWriter.Create(OutStream, Settings.Simple);
    try
      OutStream.Write(HproseTagCall, 1);
      HproseWriter.WriteString(AName);
      if (Length(Args) > 0) or Settings.ByRef then begin
        HproseWriter.Reset;
        HproseWriter.WriteArray(Args);
  
negative.code:     raise Exception.Create('unexpected EOF');
    N := Length(Data);
    if Data[N - 1] <> HproseTagEnd then
      raise Exception.Create('Wrong Response: ' + #13#10 + string(StringOf(Data)));
    Result := Null;
    if Settings.Mode = RawWithEndTag then Result := Data
    else if Settings.Mode = Raw then begin
  