anchor.diff:  
   
   wrap(AL, State) ->
  -    case (catch wrap_p(AL, State)) of
  +    case wrap_p(AL, State) of
   	true ->
   	    file:close(AL#alog.fd),
   	    Old = [AL#alog.filename, ".old"],
  
positive.code:     
  
  wrap_p(AL, State) when record(AL, alog) ->
      {ok, FI} = file:read_file_info(AL#alog.filename),
      if
  	FI#file_info.size > State#state.log_wrap_size->
  	    true;
  	true ->
  	    false
      end;
  wrap_p(_,_) ->
  
negative.code: 	    AL#alog{fd = Fd2};
  	false ->
  	    AL;
  	enoent ->
  	    %% Logfile disapeared, 
  	    error_logger:format("Logfile ~p disapeared - we reopen it",
  				[AL#alog.filename]),
  	    {ok, Fd2} = file:open(AL#alog.filename, [write, raw]),
  	    AL#alog{fd = Fd2};
  	{'EXIT', Rsn} ->
  	    error_logger:format("Failed to wraplog ~p:~p~n",
  				[AL#alog.filename, Rsn]),
  