anchor.diff:      [bar, tubez, foo] = unique_results(RGeos, S4).
   
   
  +clone_test() ->
  +    E1 = ets:new(a1, []),
  +    E2 = ets:new(a2, []),
  +
  +    ets:insert(E1, {tubez, 1}),
  +    ets:insert(E1, {foo, 2}),
  +    ets:insert(E1, {bar, 2}),
  +
  +    clone_table(E1, E2),
  +
  +    [{tubez, 1}] = ets:insert(E1, tubez),
  +    [{foo, 2}] = ets:insert(E1, foo),
  +    [{bar, 3}] = ets:insert(E1, bar).
  +
   -endif.
  
positive.code: %% ------------------------------------------------------------------
  %% Internal Function Definitions
  %% ------------------------------------------------------------------
  
  % Makes a Rstar Geometry object from a Lat/Lng
  make_geo(Lat, Lng) ->
  
negative.code:     {stop, normal, State};
  
  % Invoked when an agent is being recovered after a crash
  handle_cast({recover, Manager, {Pid1, Pid2}}, State) ->
      % Get the siblings
      Siblings = lists:append(Pid1, Pid2),
      NS = case Siblings of
          [] -> lager:warning("No siblings available for recovery!"), State;
          [Sibling | _] ->
              % Log the attempt
              lager:info("Attempting recovery from agent ~p", [Sibling]),
  
              % Perform a state transfer
              {ok, OtherState} = gen_server:call(Sibling, state_transfer,
                                                 ?TRANSFER_TIMEOUT),
              lager:info("State transfer from agent ~p complete", [Sibling]),
  
              % Clone the tables
              lager:info("Cloning objects from ~p", [Sibling]),
              clone_table(OtherState#state.objects, State#state.objects),
              lager:info("Cloning geometries from ~p", [Sibling]),
              clone_table(OtherState#state.geos, State#state.geos),
  
              % Merge in the Rtree as our updated state
              lager:info("Merging R-tree from ~p", [Sibling]),
              State#state{rstar=OtherState#state.rstar}
      end,
  
      % Notify the manager we are ready
      gen_server:cast(Manager, {ready, self(), State#state.space}),
      {noreply, NS}.
  
  
  handle_info(_Info, State) ->
  