anchor.diff:  	  {Toks21, Toks22} = lists:splitwith(fun (T) -> is_string(T) orelse is_whitespace_or_comment(T) end, Toks1),
   	  Toks3 = lists:filter(fun (T) -> is_string(T) end, Toks21),
   	  case Toks3 of
  -	    [] ->  %% This should not happen.
  -		Len = length(refac_syntax:string_literal(Node)),
  -		refac_syntax:add_ann({range, {{L, C}, {L, C + Len - 1}}}, Node);
  +	      [] -> 
  +		  Len = length(refac_syntax:string_literal(Node)),
  +		  Toks23 = lists:takewhile(fun(T) -> token_loc(T) <{L, C+Len-1} end, Toks22),
  +		  Toks31 = lists:filter(fun (T) -> is_string(T) end, Toks23),
  +		  case Toks31 of 
  +		      [] ->
  +			  refac_syntax:add_ann({range, {{L, C}, {L, C + Len - 1}}}, Node);
  +		      _ -> 
  +			  Node1 =refac_syntax:add_ann({range, {{L, C}, {L, C + Len - 1}}}, Node),
  +			  refac_syntax:add_ann({toks, Toks31}, Node1)
  +		  end;		      
   	    _ -> Toks4 = lists:takewhile(fun (T) -> is_whitespace_or_comment(T) end, lists:reverse(Toks21)),
   		 {L3, C3} = case Toks4 of
   			      [] -> token_loc(hd(Toks22));
  
positive.code: 		 Node1 = refac_syntax:arity_qualifier(Fun, A),
  		 {refac_syntax:add_ann({category, arity_qualifier}, Node1), true};
  	     macro ->
  		 Name = refac_syntax:macro_name(Node),
  		 Args = refac_syntax:macro_arguments(Node),
  		 Name1 = add_category(Name, macro_name),
  		 Args1 = case Args of
  			   none -> none;
  			   _ -> add_category(Args, expression) %% should 'expression' be 'macro_args'?
  			 end,
  		 Node1 = rewrite(Node, refac_syntax:macro(Name1, Args1)),
  		 {refac_syntax:add_ann({category, macro}, Node1), true};
  	     record_access ->
  		 Argument = refac_syntax:record_access_argument(Node),
  		 Type = refac_syntax:record_access_type(Node),
  		 Field = refac_syntax:record_access_field(Node),
  
negative.code: predefined_macros() ->
      ['MODULE', 'MODULE_STRING', 'FILE', 'LINE', 'MACHINE'].
      
  default_incls() ->
    [".", "..", "../hrl", "../incl", "../inc", "../include",
     "../../hrl", "../../incl", "../../inc", "../../include",
     "../../../hrl", "../../../incl", "../../../inc", "../../../include"].
  