anchor.diff:      after Timeout ->
           catch unlink(Pid), % or we'll kill ourself :O
           exit(Pid, timeout),
  -        receive
  -            {'DOWN', _, process, Pid, timeout} ->
  -                {error, timeout};
  -            {'DOWN', _, process, Pid, Reason}  ->
  -                erlang:error(Reason)
  -        after 1000 ->
  -            exit(normal) % silent failure!
  -        end
  +        {error, timeout}
       end.
   
   -spec verify_options(options(), options()) -> ok.
  
positive.code:                     % sent to it. Very unlikely though
                      exit(Reason)
              after Timeout ->
                      kill_client(Pid)
              end
      end.
  
  
negative.code:     end.
  
  kill_client(Pid) ->
      unlink(Pid), % or we'll kill ourself :O
      exit(Pid, timeout),
      {error, timeout}.
  
  kill_client_after(Pid, Timeout) ->
      erlang:monitor(process, Pid),
  