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: -behaviour(gen_server).
  -include("bkdcore.hrl").
  % API
  -export([call/2,cast/2]).
  % gen_server
  -export([start/0,start/1, stop/1,stop/0, init/1, handle_call/3, 
   		  handle_cast/2, handle_info/2, terminate/2, code_change/3,t/0]).
  