anchor.diff:      {module, _} = code:load_abs(AbsFile, Mod),
   
       Ms0 = erlang:process_info(self(),messages),
  -    Before = {get(), pps(), ets:all(), Ms0},
  +    Before = {{get(), ets:all(), Ms0}, pps()},
   
       %% Prepare the check that the qlc module does not call qlc_pt.
       _ = [unload_pt() || {file, Name} <- [code:is_loaded(qlc_pt)], 
  
positive.code: filename(Name, Config) ->
      filename:join(?privdir, Name).
  
  pps() ->
      {port_list(), process_list()}.
  
  
negative.code:     [{P,process_info(P, registered_name),
        safe_second_element(process_info(P, initial_call))} || 
          P <- processes(), is_process_alive(P)].
  
  proc_reg_name({registered_name, Name}) -> Name;
  proc_reg_name([]) -> no_reg_name.
  
  safe_second_element({_,Info}) -> Info;
  safe_second_element(Other) -> Other.
  