anchor.diff:      lcnt:apply(Fun, []).
   
   apply(Fun, As) when is_function(Fun) ->
  -    lcnt:start(),
  +    ok = start_internal(),
       Opt = lcnt:rt_opt({copy_save, true}),
       lcnt:clear(),
       Res = erlang:apply(Fun, As),
  
positive.code: %% -------------------------------------------------------------------- %%
  
  apply(M,F,As) when is_atom(M), is_atom(F), is_list(As) ->
      lcnt:start(),
      Opt = lcnt:rt_opt({copy_save, true}),
      lcnt:clear(),
      Res = erlang:apply(M,F,As),
  
negative.code: set(Option, Value)   -> call({set, Option, Value}).
  set({Option, Value}) -> call({set, Option, Value}).
  save(Filename)       -> call({save, Filename}).
  load(Filename)       -> ok = start_internal(), call({load, Filename}).
  
  call(Msg) -> gen_server:call(?MODULE, Msg, infinity).
  
  