anchor.diff:  
   %% server_delete_handler(HandlerId, Args, MSL) -> {Ret, MSL'}
   
  -server_delete_handler(HandlerId, Args, MSL, SName) -> 
  +server_delete_handler(HandlerId, Args, MSL, SName) ->
       case split(HandlerId, MSL) of
   	{Mod, Handler, MSL1} ->
   	    {do_terminate(Mod, Handler, Args,
  
positive.code:     Handler = #handler{module = Mod,
  		       id = Id},
      server_add_handler(Mod, Handler, Args, MSL);
  server_add_handler(Mod, Args, MSL) -> 
      Handler = #handler{module = Mod},
      server_add_handler(Mod, Handler, Args, MSL).
  
  
negative.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},
  