anchor.diff:  	{ok, Fd} ->
   	    case catch file:read(Fd, 1) of
   		{ok, [LastWritten]} -> 
  +		    file:close(Fd),
   		    Files = make_file_list(RptDir, LastWritten),
   		    scan_files(RptDir, Files, Max, Type);		
  -		_ -> exit("cannot read the index file")
  +		_X ->
  +		    file:close(Fd),
  +		    exit("cannot read the index file")
   	    end;
  -	_ -> exit("cannot read the index file")
  +	_X -> exit("cannot read the index file")
       end.
   
   make_file_list(Dir, FirstFileNo) ->
  
positive.code:     gen_server:start_link({local, rb_server}, rb, Options, []).
  
  stop() -> 
      call(stop),
      supervisor:delete_child(sasl_sup, rb_server).
  
  rescan() -> rescan([]).
  
negative.code:     NewState = State#state{data = Data, max = Max, type = Type,
  			   device = Device, abort = Abort, log = Log1},
      {reply, ok, NewState};
  handle_call(_, _From, #state{data = undefined}) ->
      {reply, {error, no_data}, #state{}};
  handle_call({list, Type}, _From, State) ->
  