anchor.diff:  %% Helpers -------
   
   connect_lookup(Address, Port, Opts, Timer) ->
  -    Opts_1 = normalize_setopts(Opts),
  +    Opts_1 = internalize_setopts(Opts),
       {Mod, Opts_2} = inet:tcp_module(Opts_1, Address),
       Domain = domain(Mod),
       {StartOpts, Opts_3} = split_start_opts(Opts_2),
  
positive.code:             exit(badarg)
       end || Opt <- Opts].
  
  normalize_getopts(Opts) ->
      [case Opt of
           Tag when is_atom(Tag)    -> Opt;
           {raw, _}                 -> Opt;
           {raw, Level, Key, Value} -> {raw, {Level, Key, Value}};
           _                        -> exit(badarg)
       end || Opt <- Opts].
  
  %%
  %% -------
  %% Split options into server start options and other options.
  
negative.code: %% Reject all other terms by exit(badarg).
  %%
  
  internalize_setopts(Opts) ->
      [case Opt of
           binary                     -> {mode, binary};
           list                       -> {mode, list};
  