anchor.diff:  			ok;
   		{From,_} ->
   			?ERR("Replying erorr closed! on ~p",[From]),
  -			gen_server:call(Home,{reply,term_to_binary({rpcreply,{From,{error,econnrefused}}},[compressed,{minor_version,1}])})
  +			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
  
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
  					% end,
  					gen_server:call(Home,{reply,term_to_binary({rpcreply,{From,X}},[{minor_version,1}])});
  				_ ->
  					ok
  			end;
  		{From,ping} ->
  			gen_server:call(Home,{reply,term_to_binary({rpcreply,{From,pong}},[{minor_version,1}])});
  		{From,What} ->
  			gen_server:call(Home,{reply,term_to_binary({rpcreply,{From,{module_not_alowed,What}}},[{minor_version,1}])})
  	end.
  
  
  