anchor.diff:      true -> ok;
       false ->
         Msg = io_lib:format("    The PLT file ~s is not writable", [PltFile]),
  -      error(Msg)
  +      cl_error(Msg)
     end.
   
   check_if_writable(PltFile) ->
  
positive.code:     {error, no_such_file} ->
        Msg = io_lib:format("Could not find the PLT: ~s\n~s",
  			  [InitPlt, default_plt_error_msg()]),
        error(Msg);
      {error, not_valid} ->
        Msg = io_lib:format("The file: ~s is not a valid PLT file\n~s",
  			  [InitPlt, default_plt_error_msg()]),
        error(Msg);
      {error, read_error} ->
        Msg = io_lib:format("Could not read the PLT: ~s\n~s",
  			  [InitPlt, default_plt_error_msg()]),
        error(Msg);
      {error, {no_file_to_remove, F}} ->
        Msg = io_lib:format("Could not remove the file ~s from the PLT: ~s\n",
  			  [F, InitPlt]),
        error(Msg)
    end.
  
  default_plt_error_msg() ->
  
negative.code:         Plts ->
            Msg = io_lib:format("Could not add to multiple PLT files: ~s\n",
                                [format_plts(Plts)]),
            cl_error(Msg)
        end;
      false ->
        case Opts#options.init_plts =:= [] of
  