anchor.diff:      ok.
   
   get_data(Pid) ->
  -    Pid ! {get_data,self()},
  -    receive 
  -	{data,Data} ->
  -	    {ok,Data}
  +    MRef = monitor(process, Pid),
  +    Pid ! {get_data, self()},
  +    receive
  +        {data, Data} ->
  +            demonitor(MRef, [flush]),
  +            {ok, Data};
  +        {'DOWN', MRef, process, _, _} = T ->
  +            {error, T}
       end.
   
   %%%-----------------------------------------------------------------
  
positive.code: %%
  %% %CopyrightBegin%
  %%
  %% Copyright Ericsson AB 2003-2020. All Rights Reserved.
  %%
  %% Licensed under the Apache License, Version 2.0 (the "License");
  %% you may not use this file except in compliance with the License.
  
negative.code: 
  open(Server, Port, Timeout, KeepAlive, NoDelay, ConnName) ->
      Self = self(),
      {Pid, MRef} = spawn_monitor(fun() ->
                                          init(Self, Server, Port, Timeout,
                                               KeepAlive, NoDelay, ConnName)
                                  end),
      receive
          {Result, Pid} ->
              demonitor(MRef, [flush]),
              if Result == open -> {ok, Pid}; true -> Result end;
          {'DOWN', MRef, process, _, _} = T ->
              {error, T}
      end.
  
  close(Pid) ->
  