// $Id$

$use Class Convert List;

Lib_Error (e.fname) error, {
  $error e.fname error;
  e.fname : e s.name, error : e s.w e, <IsWord s.w> =  // If compatible is on.
    $error s.name s.w;
};

Not_Available e.name =
  $error <ToWord <Intersperse ('.') e.name>> "Not available";