anchor.diff:      SuccList = node_details:get(Details, succlist),
       RTSize = node_details:get(Details, rt_size),
       Load = node_details:get(Details, load),
  +    MyIndexStr = case get_indexed_id_by_node(Node) of
  +                     undefined -> dead_node();
  +                     MyIndex -> MyIndex
  +                 end,
  +    NodeListFun = fun(NodeX) ->
  +                          case get_indexed_id_by_node(NodeX) of
  +                              undefined -> node:id(NodeX);
  +                              X         -> "<b>" ++ integer_to_list(X) ++ "</b>"
  +                          end
  +                  end,
       {tr, [], 
         [
          {td, [], [get_flag(Hostname), io_lib:format("~p", [Hostname])]},
  -       {td, [], io_lib:format("~.100p", [[node:id(N) || N <- PredList]])},
  -       {td, [], io_lib:format("~p", [node:id(Node)])},
  -       {td, [], io_lib:format("~.100p", [[node:id(N) || N <- SuccList]])},
  +       {td, [], io_lib:format("~.100p", [[NodeListFun(N) || N <- PredList]])},
  +       {td, [], io_lib:format("~p:&nbsp;~p", [MyIndexStr, node:id(Node)])},
  +       {td, [], io_lib:format("~.100p", [[NodeListFun(N) || N <- SuccList]])},
          {td, [], io_lib:format("~p", [RTSize])},
          {td, [], io_lib:format("~p", [Load])}
         ]};
  
positive.code:     SuccList = node_details:get(Details, succlist),
      RTSize = node_details:get(Details, rt_size),
      Load = node_details:get(Details, load),
      MyIndex = get_indexed_id(Node),
      PredIndex = lists:map(fun(Pred) -> get_indexed_pred_id(Pred, MyIndex) end, PredList),
      SuccIndices = lists:map(fun(Succ) -> get_indexed_succ_id(Succ, MyIndex) end, SuccList),
      [FirstSuccIndex|_] = SuccIndices,
      {tr, [],
        [
         {td, [], [get_flag(Hostname), io_lib:format("~p", [Hostname])]},
  
negative.code: -spec get_indexed_pred_id(Node::node:node_type(),
                            MyIndex::non_neg_integer() | string()) -> integer() | string().
  get_indexed_pred_id(Node, MyIndex) ->
      NodeIndex = get_indexed_id_by_node(Node),
      RingSize = get_ring_size(),
      if NodeIndex =:= undefined orelse MyIndex =:= undefined -> dead_node();
         true ->
             case NodeIndex =:= MyIndex of
                 true -> 0;
                 _    ->
                     ((NodeIndex - MyIndex + RingSize) rem RingSize) - RingSize
             end
      end.
  
  -spec get_indexed_succ_id(Node::node:node_type(),
                            MyIndex::non_neg_integer() | string()) -> integer() | string().
  get_indexed_succ_id(Node, MyIndex) ->
      NodeIndex = get_indexed_id_by_node(Node),
      RingSize = get_ring_size(),
      if NodeIndex =:= undefined orelse MyIndex =:= undefined -> dead_node();
         true -> (NodeIndex - MyIndex + RingSize) rem RingSize
      end.
  
  -spec get_flag(Hostname::node_details:hostname()) -> html_type().
  