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:             Cmd
      end;
  generate_a_cmd(Cmd={RefacName, Args}, NameTrackerPid) ->
      refac_io:format("DDDD\n"),
      refac_io:format("NameTrackerPid:\n~p\n", [NameTrackerPid]),
      case lists:member(RefacName, elementary_refacs()) andalso is_list(Args) of
          true ->
              NameTrackerPid ! {self(), update_args, Args},
              receive
                  {NameTrackerPid, NewArgs} ->
                      try 
                          refac_io:format("ddddd\n"),
                          Cmds=apply(wrangler_extended, RefacName, NewArgs),
                          refac_io:format("Cmdsdd:\n~p\n", [Cmds]),
                          generate_cmds(Cmds, NameTrackerPid)
                      catch
                          E1:E2 ->
  
negative.code: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  %% This function takes the first command generator in the list, expands it
  %% and appends the result to the front of the list of cmd generators.
  
  generate_cmds(Cmd, NameTrackerPid) when not is_list(Cmd) ->
      generate_cmds([Cmd], NameTrackerPid);
  generate_cmds([], _) -> [];
  generate_cmds([Cmd|Cmds], NameTrackerPid) ->
      wrangler_io:format("Generate_cmds:Cmd:\n~p\n",[Cmd]), 
      Cmd1 = generate_a_cmd(Cmd, NameTrackerPid),
      wrangler_io:format("Cmd1:\n~p\n", [Cmd1]),
      case Cmd1 of 
          [] ->
              generate_cmds(Cmds, NameTrackerPid);
  