anchor.diff:  
   %% API
   -export([start_link/4, stop/1,
  -         calculate_projection_internal_old/3]).
  +         calculate_projection_internal_old/3,
  +         cl_write_current_projection/1]).
   -export([init/1, handle_call/3, handle_cast/2, handle_info/2,
            terminate/2, code_change/3]).
   
  
positive.code: handle_call({calculate_projection_internal_old, OldThreshold, NoPartitionThreshold}, _From, S) ->
      {Reply, S2} = calc_projection(OldThreshold, NoPartitionThreshold, S),
      {reply, Reply, S2};
  handle_call({stop}, _From, S) ->
      {stop, normal, ok, S};
  handle_call(_Call, _From, S) ->
  
negative.code:         [begin
               Proj = ?MGR:calculate_projection_internal_old(M0, 50, 50),
               io:format(user, "~p\n", [?MGR:make_projection_summary(Proj)])
           end || _ <- lists:seq(1,5)],
          ?D(cl_write_current_projection(M0))
      after
          ok = ?MGR:stop(M0)
      end.
  
  smoke1_test() ->
      {ok, FLUa} = machi_flu0:start_link(a),
      {ok, M0} = ?MGR:start_link(a, [a,b,c], {1,2,3}, FLUa),
      try
          ok = cl_write_current_projection(M0)
      after
          ok = ?MGR:stop(M0)
      end.
  
  -endif.
  