anchor.diff:        _ -> D
       end.
   
  +maybe_parentheses_1(D, Node, Ctxt) ->
  +    Str=refac_prettypr_0:format(D),
  +    case hd(Str)==$\( andalso lists:last(Str)==$\) of 
  +	true ->
  +	    D;
  +	false ->
  +	    case has_parentheses(Node, Ctxt#ctxt.tokens) of 
  +		true ->		
  +		   lay_parentheses(D, Ctxt); 
  +		false ->
  +		    D
  +	    end
  +    end.
   lay_qualified_name([S| Ss1] = Ss,Ctxt) ->
       case refac_syntax:type(S) of
         atom ->
  
positive.code: get_separator(_Node, _Toks, Default) ->
      Default.
  
  	    
  get_node_toks(Toks, Node) ->
      {Start, End} =refac_misc:get_start_end_loc(Node),
      Toks1 = lists:dropwhile(
  	      fun(T) ->
  		      token_loc(T)<Start
  	      end, Toks),
      lists:takewhile(fun(T)->
  			    token_loc(T)=<End
  		    end, Toks1).
  
  get_comma_tokens(Toks) ->   
      get_comma_tokens(Toks, {[],[]}).
  
negative.code: 
  seq([H| T],Separator,Ctxt,Fun) ->
      case T of
  	[] -> [Fun(H,Ctxt)];
  	_->
  	    [maybe_append(Separator,Fun(H,Ctxt))| seq(T,Separator,
  						      Ctxt,Fun)]
      end;
  seq([],_,_,_) -> [empty()].
  
  