anchor.diff:  %% Func: write_site/3
   %% Description: spawn laconica server interface process
   %%--------------------------------------------------------------------
  -write_site({reply, Status, _Sessions}, Url, PollFrequency) ->
  -    if
  -        Status =:= ok -> 
  -            laconica_site_model:write(#laconica_sites{root_url = Url, poll_frequency = PollFrequency})
  -    end.
  +write_site(Url, PollFrequency) ->
  +    laconica_site_model:write(#laconica_sites{root_url = Url, poll_frequency = PollFrequency}).
  
positive.code: %% Func: spawn_session/3
  %% Description: spawn laconica server interface process
  %%--------------------------------------------------------------------
  spawn_session(Url, _PollFrequency, Sessions) ->
      {Status, Pid} = laconica_interface:start_link(Url),
      case Status of
          ok -> {reply, Status, gb_trees:insert(Url, Pid, Sessions)};
          _  -> {reply, Status, Sessions}
      end.
  
  %%--------------------------------------------------------------------
  
negative.code:     case gb_trees:is_defined(Url, Sessions) of
          false ->
              Response = spawn_session(Url, PollFrequency, Sessions),
              write_site(Url, PollFrequency),
              Response;
          true -> {reply, ok, Sessions}
      end.
  