anchor.diff:                  {false, _} ->
                       From !{get_next_command, Parent, [ok, []]};
                   Others ->
  -                    CR1s =case Others of 
  -                              true ->
  -                                  CRs;
  -                              {true, Data} when is_function(CRs,1)->
  -                                  CRs(Data);
  -                              {true, _} ->
  -                                  CRs
  -                          end,
  -                    Pid = spawn_link(fun()->
  -                                             cmd_server_loop(
  -                                               Parent, 
  -                                               State#state{cmds=make_list(CR1s)})
  -                                     end),
  -                    process_flag(trap_exit, true),
  +                    CR1 =case Others of
  +                             true ->
  +                                 CR;
  +                             {true, Data} when is_function(CR,1) ->
  +                                 CR(Data);
  +                             {true, _} ->
  +                                 CR
  +                         end,
  +                    Pid = process_one_cr(Parent, false, Mode, CR1),
                       From ! {get_next_command, Pid, [ok,[]]}
               end;
           {'EXIT', ChildrenPid, Reason} ->
  
positive.code: %% BY default, we refer to the new entity; but if the new name is unknown from 
  %% the script, it is possible to refer to the old entity name, but that must be 
  %% flagged!!!
  name_tracker_loop(State) ->
      ?wrangler_debug("State:\n~p\n", [State]),
      receive
          {name_change, BeforeAfter} ->
  
negative.code:             Cmd
      end;
  generate_a_cmd(Cmd={refac_,RefacName, Args0}) ->
      Args = Args0(),
      case lists:member(RefacName, elementary_refacs()) andalso is_list(Args) of
          true ->
              Cmds=apply(wrangler_gen, RefacName, Args),
              generate_cmds(Cmds);
          false ->
              error(format_msg("Illegal command generator:\n~p\n", Cmd))  
      end; 
  generate_a_cmd(Cmd={interactive, _, _}) ->
      Cmd;
  generate_a_cmd(Cmd={repeat_interactive, _, _}) ->
      Cmd;
  generate_a_cmd(Cmd={while, _, _}) ->
      Cmd;
  generate_a_cmd(Cmd={if_then, _, _}) ->
      Cmd;
  generate_a_cmd(Cmd={non_atomic, _}) ->
      Cmd;
  generate_a_cmd(Cmd={atomic, _}) ->
      Cmd;
  generate_a_cmd(Cmd) ->
      error(format_msg("Illegal command generator:\n~p\n", Cmd)).
  
  update_state(State=#state{changed_files=Changes}, PrevResult) ->
      State#state{changed_files= update_modified_files(PrevResult,Changes)}.
    
  make_loop_name(CR) ->
      case CR of 
          {refactoring,  _Name, _Args} ->
              elementary_refac_loop;
          {{refactoring,  _Name ,_Args}, _Gen} ->
              elementary_refac_loop;
          {interactive, _Qual,  _ERs} ->
              interactive_refac_loop;
          {repeat_interactive, _Qual, _ERs} ->
              repeat_interactive_refac_loop;
          {while, _Cond, _Qual, _CR} ->
              while_refac_loop;
          {if_then, _Cond, _CR} ->
              if_then_refac_loop;
          {atomic, _CR} ->
              atomic_refac_loop;
          {non_atomic, _CR} ->
              non_atomic_refac_loop;
          _ ->
              error(format_msg("Illegal composite refactoring command:\n~p\n", CR))   
      end.
  
  
  