anchor.diff:  clean_state() ->
       make_idle(#state{is_paused = false,
   		     queue = queue:new(),
  -             elapsed_time = 0}).
  +             elapsed_acc = 0,
  +             last_et_event = 0}).
   
   load_state() ->
       State = case file:read_file("ejukebox.state") of
  
positive.code:     {reply, {ok, SkippedEntry, summarise_state(NewState)}, NewState};
  handle_call({pause, On}, _From, State) ->
      case State#state.status of
  	{playing, PlayerPid} -> send_pause(PlayerPid, On);
  	_ -> ok
      end,
      act_and_reply(State#state{is_paused = On});
  handle_call(clear_queue, _From, State) ->
      act_and_reply(State#state{queue = queue:new()}).
  
  handle_cast(elapsed_tick, State) ->
      NewState = State#state{elapsed_time = State#state.elapsed_time + 1},
      {noreply, NewState};
  handle_cast(_Message, State) ->
      {noreply, State}.
  
  
negative.code: 
  %---------------------------------------------------------------------------
  
  -record(state, {status, is_paused, current_entry, queue, elapsed_acc, last_et_event}).
  
  act_on(State=#state{status = idle, is_paused = IsPaused, queue = TQ}) ->
      case queue:out(TQ) of
  