anchor.diff:  
   lookup(ChannelId) when is_integer(ChannelId) ->
       case ets:lookup(channels, ChannelId) of
  -        [Channel] -> Channel;
  +        [Channel = #channel{}] -> Channel;
           _ -> undefined
  +    end.
  +
  +lookup_flag(ChannelId, Flag) when Flag =:= no_tail;
  +                                  Flag =:= no_redis ->
  +    try
  +        Flags =ets:lookup_element(channels, ChannelId, #channel.flags),
  +        lists:member(Flag, Flags)
  +    catch
  +        error:badarg ->
  +            not_found
  +    end.
  +
  +lookup_flags(ChannelId) when is_integer(ChannelId) ->
  +    try ets:lookup_element(channels, ChannelId, #channel.flags)
  +    catch
  +        error:badarg ->
  +            not_found
       end.
   
   lookup_tokens(ChannelId) when is_integer(ChannelId) ->
  
positive.code:             Err
      end.
  
  delete(ChannelId) when is_integer(ChannelId) ->
      case lookup(ChannelId) of
          undefined ->
  
negative.code:          ,can_add_drain/1
          ]).
  
  -export([new/1
           ,new/2
           ,new/3
           ,id/1
           ,name/1
           ,flags/1
          ]).
  
  -export([lookup_flag/2
           ,lookup_flags/1
           ,store/1
           ,cache/3
           ,binary_to_flags/1
          ]).
  
  -compile({no_auto_import,[whereis/1]}).
  
  -include("logplex.hrl").
  -include("logplex_channel.hrl").
  -include("logplex_logging.hrl").
  
  -type id() :: integer().
  -type name() :: binary().
  -type flag() :: 'no_tail' | 'no_redis'.
  -type flags() :: [flag()].
  -type channel() :: #channel{}.
  -export_type([id/0, name/0, flags/0]).
  
  new(Id) when is_integer(Id) ->
      #channel{id=Id}.
  new(Id, Name) when is_integer(Id),
                     is_binary(Name) ->
      #channel{id=Id, name=Name}.
  new(Id, Name, Flags) when is_integer(Id),
                            is_binary(Name),
                            is_list(Flags) ->
      #channel{id=Id, name=Name, flags=Flags}.
  
  id(#channel{id=Id}) -> Id.
  name(#channel{id=Name}) -> Name.
  flags(#channel{flags=Flags}) -> Flags.
  
  register({channel, ChannelId} = C)
    when is_integer(ChannelId) ->
  