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:         _Other ->
              NewCS = get_next(CS, FSM, fun twiml:bump/1,
                               fun twiml:unbump_on/1),
              NewS = State#state{currentstate = NewCS},
              get_next_default(NewS, Action, Acc)
      end.
  
  apply_function(Module, Function, State) ->
      #state{currentstate = CS, fsm = FSM, history = History,
            eventcallbacks = CBs} = State,
      NewHist = [{"calling " ++ to_list(Module) ++ ":" ++ to_list(Function)
                  ++ "/3"} | History],
  
negative.code: %%                     {stop, Reason}
  %% @end
  %%--------------------------------------------------------------------
  init([Type, Params, TwiML_EXT]) ->
      FSM = case twiml:is_valid(TwiML_EXT) of
                false ->
                    Resp = twiml:validate(TwiML_EXT),
                    io:format("TwiML_EXT is ~p~n-~p~n", [TwiML_EXT, Resp]),
                    Tw = [#say{text = "sorry, this call has been setup "
                                    ++ "incorrectly"}],
                    orddict:from_list(twiml:compile(Tw));
                true ->
                    orddict:from_list(twiml:compile(TwiML_EXT))
            end,
      io:format("About to make log~n"),
      Log = make_log(Type, Params),
      io:format("Log is ~p~n", [Log]),
      {ok, #pc_state{twiml_ext = TwiML_EXT, initial_params = Params,
                 log = Log, fsm = FSM, history = [{init, now(), Params}]}}.
  
  %%--------------------------------------------------------------------
  %% @private
  