anchor.diff:  
   -include("twilio.hrl").
   -include("twilio_web.hrl").
  -
  --record(state, {twiml_ext = null, initial_params = null, fsm = null,
  -               currentstate = "1", history = [], eventcallbacks = []}).
  +-include("spriki.hrl").
  +-include("phonecall_srv.hrl").
   
   %%%===================================================================
   %%% API
   %%%===================================================================
   delete_self(CallSID) ->
       ok = supervisor:terminate_child(phonecall_sup, CallSID),
  -    ok = supervisor:delete_child(phonecall_sup, CallSID),
  -    ok.
  +    ok = supervisor:delete_child(phonecall_sup, CallSID).
   
   %%--------------------------------------------------------------------
   %% @doc
  
positive.code:     end.
  
  respond(State, Rec) ->
      #state{currentstate = CS, fsm = FSM} = State,
      case orddict:find(CS, FSM) of
          error ->
              exit("invalid state in respond");
          {ok, {_, Type}} when Type == wait orelse Type == gather ->
              NewCS = get_next(CS, FSM, fun twiml:bump/1,
                               fun twiml:unbump_on/1),
              NewS = State#state{currentstate = NewCS},
              execute(NewS, Rec)
      end.
  
  match(State, Action, D, Acc) ->
      #state{currentstate = CS, fsm = FSM} = State,
      case orddict:find(CS, FSM) of
          error ->
              exit("invalid state in match");
  
negative.code:         _Other ->
              NewCS = get_next(CS, FSM, fun twiml:bump/1,
                               fun twiml:unbump_on/1),
              NewS = State#pc_state{currentstate = NewCS},
              get_next_default(NewS, Action, Acc)
      end.
  
  apply_function(Module, Function, State) ->
      #pc_state{currentstate = CS, fsm = FSM, history = History,
            eventcallbacks = CBs} = State,
      NewHist = [{"calling " ++ to_list(Module) ++ ":" ++ to_list(Function)
                  ++ "/3"} | History],
  