anchor.diff:      os:putenv("GLOBAL_HIGH_LEVEL_TRACE", "TRUE"),
       put(?nodes_tag, []).
   
  -loop_until_true(Fun, Config) ->
  +loop_until_true(Fun, Config, N) ->
  +    %% ?DBG([{n, N}]),
  +    put(n, N),
       case Fun() of
   	true ->
   	    true;
  
positive.code:             case get(?end_tag) of
                  undefined ->
                      timer:sleep(?UNTIL_LOOP),
                      loop_until_true(Fun, Config);
                  EndAt ->
                      Left = EndAt - msec(),
                      case Left < 6000 of
  
negative.code: 
  -define(NODES, [node()|nodes()]).
  
  -define(UNTIL(Seq), loop_until_true(fun() -> Seq end, Config, 1)).
  
  %% The resource used by the global module.
  -define(GLOBAL_LOCK, global).
  
  %% -define(DBG(T), erlang:display({{self(), ?MODULE, ?LINE, ?FUNCTION_NAME}, T})).
  
  
  suite() ->
  