anchor.diff:      {noreply, NewState};
   
   handle_cast({buffer_to_segment, Buffer, SegmentWO}, State) ->
  -    #state { locks=Locks, buffers=Buffers, segments=Segments, scheduled_compaction=ScheduledCompaction } = State,
  +    #state { locks=Locks, buffers=Buffers, segments=Segments, is_compacting=IsCompacting } = State,
   
       %% Clean up by clearing delete flag on the segment, adding delete
       %% flag to the buffer, and telling the system to delete the buffer
  
positive.code:   when is_tuple(State#state.is_compacting) orelse length(State#state.segments) =< 5 ->
      %% Don't compact if we are already compacting, or if we have fewer
      %% than four open segments.
      {reply, {ok, 0, 0}, State#state { scheduled_compaction=false }};
  
  handle_call(start_compaction, From, State) ->
      %% Get list of segments to compact. Do this by getting filesizes,
  
negative.code:     NewState = State#state {
          locks=NewLocks,
          segments=[CompactSegmentRO|(Segments -- OldSegments)],
          is_compacting=false
      },
  
  