anchor.diff:  		{From,{Mod,Func,Param}} when Mod /= file, Mod /= filelib, Mod /= init, 
   									Mod /= io, Mod /= os, Mod /= erlang, Mod /= code ->
   			case catch apply(Mod,Func,Param) of
  -				X ->
  -					gen_server:call(Home,{reply,term_to_binary({rpcreply,{From,X}},[compressed,{minor_version,1}])})
  +				X when From /= undefined ->
  +					gen_server:call(Home,{reply,term_to_binary({rpcreply,{From,X}},[compressed,{minor_version,1}])});
  +				_ ->
  +					ok
   			end;
   		{From,ping} ->
   			gen_server:call(Home,{reply,term_to_binary({rpcreply,{From,pong}},[compressed,{minor_version,1}])});
  -		{From,_} ->
  -			gen_server:call(Home,{reply,term_to_binary({rpcreply,{From,module_not_alowed}},[compressed,{minor_version,1}])})
  +		{From,What} ->
  +			gen_server:call(Home,{reply,term_to_binary({rpcreply,{From,{module_not_alowed,What}}},[compressed,{minor_version,1}])})
   	end.
   
   
  
positive.code: 		X ->
  			X
  	end.
  
  start() ->
  	gen_server:start_link({local, ?MODULE}, ?MODULE, [], []).
  
negative.code: handle_call(stop, _, P) ->
  	{stop, shutdown, stopped, P}.
  
  handle_cast({cast,Msg},P) ->
  	Bin = term_to_binary({undefined,Msg},[compressed,{minor_version,1}]),
  	handle_call({sendbin,Bin},undefined,P#dp{callcount = P#dp.callcount + 1});
  handle_cast(decr_callcount,P) ->
  	{noreply,P#dp{callcount = P#dp.callcount - 1}};
  handle_cast(_, P) ->
  