diff --git a/wst/trunk/server_service_intf.pas b/wst/trunk/server_service_intf.pas index b53161e61..39093a84a 100644 --- a/wst/trunk/server_service_intf.pas +++ b/wst/trunk/server_service_intf.pas @@ -520,6 +520,12 @@ begin end; end; except + on e : EBaseRemoteException do begin + f.Clear(); + f.SetSerializationStyle(ssNodeSerialization); + f.BeginExceptionList(e.FaultCode,e.FaultString); + f.EndExceptionList(); + end; on e : Exception do begin f.Clear(); f.SetSerializationStyle(ssNodeSerialization);