anchor.diff:  
       % Create a process for the AsyncFunction...
       FunctionPid = case Record#comet.function of
  +        {Name, F, Msg} when is_function(F) ->
  +            P = spawn_with_context({Name, F, Msg}, postback),
  +            notify_accumulator_checker(P),
  +            P;
           {Name, F} when is_function(F) ->
               P = spawn_with_context({Name, F}, postback),
               notify_accumulator_checker(P),
  
positive.code:     comet(F, default).
  
  %% @doc Convenience method to start a comet process.
  comet({Name, F}, Pool) when is_function(F) ->
      Pid = spawn_with_context({Name, F}, page),
      wf:wire(page, page, #comet { function={Name, F}, pool=Pool, scope=local }),
  
negative.code:     {ok, Pid}.
  
  %% @doc Convenience method to start a comet process with global pool.
  comet_global({Name, F, Msg}, Pool) ->
      Pid = spawn_with_context({Name, F, Msg}, page),
      wf:wire(page, page, #comet { function={Name, F, Msg}, pool=Pool, scope=global }),
      {ok, Pid};
  comet_global({Name, F}, Pool) ->
      Pid = spawn_with_context({Name, F}, page),
      wf:wire(page, page, #comet { function={Name, F}, pool=Pool, scope=global }),
  