anchor.diff:  	{stop, shutdown, stopped, P}.
   
   handle_cast({call,From,Msg},P) ->
  -	Bin = term_to_binary({From,Msg},[compressed,{minor_version,1}]),
  +	Bin = term_to_binary({From,Msg},[{minor_version,1}]),
   	case handle_call({sendbin,Bin},undefined,P#dp{callcount = P#dp.callcount + 1}) of
   		{reply,Err,NP} ->
   			gen_server:reply(From,Err),
  
positive.code: handle_call({call,permanent},_,P) ->
  	{reply,ok,P#dp{permanent = true}};
  handle_call({call,Msg},From,P) ->
  	Bin = term_to_binary({From,Msg},[compressed,{minor_version,1}]),
  	handle_call({sendbin,Bin},From,P#dp{callcount = P#dp.callcount + 1});
  handle_call({reply,Bin},From,P) ->
  	handle_call({sendbin,Bin},From,P#dp{callcount = P#dp.callcount - 1});
  
negative.code: 			ok;
  		{From,_} ->
  			?ERR("Replying erorr closed! on ~p",[From]),
  			gen_server:call(Home,{reply,term_to_binary({rpcreply,{From,{error,econnrefused}}},[{minor_version,1}])})
  	end;
  exec(_,Home,Msg) ->
  	case binary_to_term(Msg) of
  