anchor.diff:      Mod1 = Handler1#handler.module,
       State = Handler1#handler.state,
       case catch Mod1:handle_call(Query, State) of
  -	{ok, Reply, State1} -> 
  +	{ok, Reply, State1} ->
   	    {{ok, Handler1#handler{state = State1}}, Reply};
  -	{ok, Reply, State1, hibernate} -> 
  -	    {{hibernate, Handler1#handler{state = State1}}, 
  +	{ok, Reply, State1, hibernate} ->
  +	    {{hibernate, Handler1#handler{state = State1}},
   	     Reply};
   	{swap_handler, Reply, Args1, State1, Handler2, Args2} ->
   	    {do_swap(Mod1,Handler1,Args1,State1,Handler2,Args2,SName), Reply};
  -	{remove_handler, Reply} -> 
  +	{remove_handler, Reply} ->
   	    do_terminate(Mod1, Handler1, remove_handler, State,
   			 remove, SName, normal),
   	    {no, Reply};
  
positive.code: 		       id = Id,
  		       supervised = Parent},
      server_add_handler(Mod, Handler, Args, MSL);
  server_add_sup_handler(Mod, Args, MSL, Parent) -> 
      link(Parent),
      Handler = #handler{module = Mod,
  		       supervised = Parent},
  
negative.code: stop(M, Reason, Timeout) ->
      gen:stop(M, Reason, Timeout).
  
  rpc(M, Cmd) ->
      {ok, Reply} = gen:call(M, self(), Cmd, infinity),
      Reply.
  
  