anchor.diff:          Plts ->
             Msg = io_lib:format("Could not remove from multiple PLT files: ~s\n",
                                 [format_plts(Plts)]),
  -          error(Msg)
  +          cl_error(Msg)
         end;
       false ->
         case Opts#options.init_plts =:= [] of
  
positive.code: 	{error, Reason} ->
  	  Msg = io_lib:format("Could not open output file ~p, Reason: ~p\n",
  			      [OutFile, Reason]),
  	  error(State, lists:flatten(Msg))
        end
    end.
  
  
negative.code:     {error, no_such_file} ->
        Msg = io_lib:format("Could not find the PLT: ~s\n~s",
  			  [InitPlt, default_plt_error_msg()]),
        cl_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()]),
        cl_error(Msg);
      {error, read_error} ->
        Msg = io_lib:format("Could not read the PLT: ~s\n~s",
  			  [InitPlt, default_plt_error_msg()]),
        cl_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]),
        cl_error(Msg)
    end.
  
  default_plt_error_msg() ->
  