INTERFACE ObErr;
IMPORT SynWr;

  EXCEPTION Fail;

  PROCEDURE Msg(swr: SynWr.T; msg: TEXT);

  PROCEDURE Fault(swr: SynWr.T; msg: TEXT) RAISES {Fail};

END ObErr.