anchor.diff:  	L when L#log.blocked_by =:= From ->
   	    reply(From, {error, {blocked_log, L#log.name}}, S);
   	_ ->
  -	    loop(S#state{queue = [{From, inc_wrap_file} | S#state.queue]})
  +	    enqueue(Message, S)
       end;
   handle({From, {reopen, NewFile, Head, F, A}}, S) ->
       case get(log) of
  
positive.code: 	L ->
  	    reply(From, {error, {not_blocked_by_pid, L#log.name}}, S)
      end;
  handle({From, sync}, S) ->
      case get(log) of
  	L when L#log.mode =:= read_only ->
  	    reply(From, {error, {read_only_mode, L#log.name}}, S);
  
negative.code:         Error ->
  	    loop(S#state{cache_error = Error})
      end;
  handle({From, {log, B}}=Message, S) ->
      case get(log) of
  	L when L#log.mode =:= read_only ->
  	    reply(From, {error, {read_only_mode, L#log.name}}, S);
  