anchor.diff:  
   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   %% Check if process is alive and kicking
  +
   still_alive(Pid) ->   
  -    case catch erlang:is_process_alive(Pid) of % New BIF in Erlang/OTP R5
  -	true -> 
  -	    true;
  -	false -> 
  -	    false;
  -	{'EXIT', _} -> % Pre R5 backward compatibility 
  -	    case process_info(Pid, message_queue_len) of
  -		undefined -> false;
  -		_ -> true
  -	    end 
  -    end.
  +    erlang:is_process_alive(Pid).
   
   
   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  
positive.code: 
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  %% Flush the message queue and return its messages
  flush() ->
      receive
  	Msg ->
  
negative.code: %%     {Mod, Fun, ExpectedRes, ActualRes}
  %%----------------------------------------------------------------------
  
  display_alloc_info() ->
      io:format("Allocator memory information:~n", []),
      AllocInfo = alloc_info(),
  