anchor.diff:      case Entry of
           {M, F, A} ->
               M1 = case is_list(M) of 
  -                     true ->
  +                     true when M/=[]->
                            list_to_atom(M);
                        _ ->
                            M
                    end,
               F1 = case is_list(F) of 
  -                     true ->
  +                     true  when M/=[]->
                            list_to_atom(F);
                        _ -> 
                            F
                    end,
               A1 = case is_list(A) of 
  -                     true ->
  +                     true  when M/=[]->
                            list_to_integer(A);
                        _ -> A
                    end,
  
positive.code:     [{Key, [After,Before|Bs]}|Ls]++Acc;
  update_name_history_1([L|Ls], {Before, After}, Acc) ->
      update_name_history_1(Ls, {Before, After}, [L|Acc]).
      
  
  rename_in_args(Args, State) ->
      ?debug("State:\n~p\n", [State]),
      [case Arg of
           {old, A} ->
               Arg1=normalise(A),
               ?debug("Arg1:\n~p\n", [Arg1]),
               case lists:keyfind(Arg1, 1,State) of
                   {Arg1, NewNames} ->
                       ?debug("NewNames:\n~p\n", [NewNames]),
                       hd(NewNames);
                   false -> 
                       A    %% should throw error here!!!
  
negative.code:             Cmd
      end;
  generate_a_cmd(Cmd={RefacName, Args}, NameTrackerPid) ->
      wrangler_io:format("NameTrackerPid:\n~p\n", [NameTrackerPid]),
      wrangler_io:format("Cmd_in_generate_a_cmd:\n~p\n", [Cmd]),
      wrangler_io:format("RefacName:\n~p\n", [RefacName]),
      case lists:member(RefacName, elementary_refacs()) andalso is_list(Args) of
          true ->
              NameTrackerPid ! {self(), update_args, Args},
              receive
                  {NameTrackerPid, NewArgs} ->
                      try 
                          wrangler_io:format("RefacName:\n~p\n", [RefacName]),
                          Cmds=apply(wrangler_extended, RefacName, NewArgs),
                          wrangler_io:format("Cmdsdd:\n~p\n", [Cmds]),
                          generate_cmds(Cmds, NameTrackerPid)
                      catch
                          E1:E2 ->
  