anchor.diff:  					% 	_ ->
   					% 		ok
   					% end,
  -					gen_server:call(Home,{reply,term_to_binary({rpcreply,{From,X}},[compressed,{minor_version,1}])});
  +					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}},[compressed,{minor_version,1}])});
  +			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}}},[compressed,{minor_version,1}])})
  +			gen_server:call(Home,{reply,term_to_binary({rpcreply,{From,{module_not_alowed,What}}},[{minor_version,1}])})
   	end.
   
   
  
positive.code: 			{noreply,NP}
  	end;
  handle_cast({cast,Msg},P) ->
  	Bin = term_to_binary({undefined,Msg},[compressed,{minor_version,1}]),
  	case handle_call({sendbin,Bin},undefined,P#dp{callcount = P#dp.callcount + 1}) of
  		{reply,_,NP} ->
  			{noreply,NP};
  
negative.code: handle_call({call,permanent},_,P) ->
  	{reply,ok,P#dp{permanent = true}};
  handle_call({call,Msg},From,P) ->
  	Bin = term_to_binary({From,Msg},[{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});
  