anchor.diff:      maybe_reply(MaybeFrom, nack, State),
       {next_state, StateName, State};
   common(Msg, State, StateName) ->
  -    ?OUT("~p: ~s/ignoring: ~p~n", [State#state.id, StateName, Msg]),
  -    %% io:format("~p/~p: ~s/ignoring: ~p~n", [State#state.id, self(), StateName, Msg]),
       nack(Msg, State),
       {next_state, StateName, State}.
   
  
positive.code:     State2 = State#state{tree_trust=true},
      {next_state, following, State2};
  following(exchange_failed, State) ->
      probe(init, State);
  following({commit, Fact, From}, State) ->
      State3 = case Fact#fact.epoch >= epoch(State) of
  
negative.code: common(tree_pid, From, State, StateName) ->
      gen_fsm:reply(From, State#state.tree),
      {next_state, StateName, State};
  common(tree_corrupted, From, State, StateName) ->
      gen_fsm:reply(From, ok),
      lager:debug("~p: tree_corrupted in state ~p", [State#state.id, StateName]),
      repair(init, State);
  common(_Msg, From, State, StateName) ->
      send_reply(From, nack),
      {next_state, StateName, State}.
  
  