anchor.diff:      case leo_misc:get_value('partner', RedundantNodes) of
           undefined ->
               create_mnesia_tables1(Mode, RedundantNodes);
  -        PartnerNode ->
  -            case net_adm:ping(PartnerNode) of
  -                pong ->
  +        PartnerNodes ->
  +            case lists:foldl(fun(N, _) ->
  +                                     case catch net_adm:ping(N) of
  +                                         pong -> true;
  +                                         _    -> false
  +                                     end
  +                             end, false, PartnerNodes) of
  +                true ->
                       create_mnesia_tables1(Mode, RedundantNodes);
  -                pang ->
  +                false ->
                       timer:apply_after(?CHECK_INTERVAL, ?MODULE,
                                         create_mnesia_tables, [Mode, RedundantNodes])
               end
  
positive.code:         case ?env_partner_of_manager_node() of
              [] ->
                  {[Me] ,[{Mode, Me}]};
              [RedundantNode|_] ->
                  RedundantNodeAtom = case is_atom(RedundantNode) of
                                          true  -> RedundantNode;
                                          false -> list_to_atom(RedundantNode)
                                      end,
                  {[Me, RedundantNodeAtom] , [{Mode, Me},
                                              {'partner', RedundantNodeAtom}]}
          end,
  
      CUI_Console  = #tcp_server_params{prefix_of_name  = "tcp_server_cui_",
  
negative.code: -spec(create_mnesia_tables1(master | slave, list()) ->
               ok | {error, any()}).
  create_mnesia_tables1(master = Mode, Nodes0) ->
      Nodes1 = lists:flatten(lists:map(fun({_, N}) -> N end, Nodes0)),
      case mnesia:create_schema(Nodes1) of
          ok ->
              try
  