anchor.diff:  
   %% API
   -export([start_link/2,
  +         start_link/3,
            start_link/6,
            shutdown/1,
            send/2,
  -         reset_to_connected/1]).
  +         reset_to_connected/1,
  +         nick/1,
  +         channels/1
  +        ]).
   
   -export([connecting/2,
            wait_connected/2,
  
positive.code: 
  reset_to_connected(Pid) ->
      gen_fsm:send_all_state_event(Pid, reset_to_connected).
  
  %%====================================================================
  %% gen_fsm callbacks
  
negative.code:     Chan = proplists:get_value(channel, A, "ERROR - No channel"),
      ?INFO("Finished joining ~s.", [Chan]),
      {next_state, connected, State};
  joining_channel({irc, _Pid, #irc_cmd{name=namreply, args=A}},
                  State = #state{channels=Chans}) ->
      Members = proplists:get_value(members, A, []),
      Type = proplists:get_value(channel_type, A, undefined),
  