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:                                     NextCmd),
                      {ok, none, [], {error, Msg}}
              end;
          Others ->
              Msg=format_msg("Unexpected Message in get_next_command: ~p.\n",
                             Others),
  
negative.code:                                         {true, _} ->
                                              CmdGen
                                      end,
                              NewCR = generate_cmds(CmdGen1),
                              case NewCR of
                                  [] ->
                                      From !{get_next_command, Parent, 
                                             [ok, sets:to_list(ModifiedSoFar)]};
                                  _ ->
                                      Pid = process_one_cr(self(), Qual==atomic, undefined, NewCR),
                                      From ! {get_next_command, Pid, [ok, []]},
                                      while_refac_loop(Parent, State#state{cmds={while, Cond, CmdGen},
                                                                           changed_files=ModifiedSoFar})
  