anchor.diff:      {ok, FToks, _} = refac_scan:string(F),
       EStr = [S || S <- refac_util:concat_toks(EToks), S =/= $\s, S =/= $'],
       FStr = [S || S <- refac_util:concat_toks(FToks), S =/= $\s, S =/= $'],
  +    UseOriginalCode = (EStr == FStr) orelse
  +	lists:usort(FStr--EStr)=="()" orelse
  +	SpecialForm(Form),
       Acc1 = case Acc of
   	     "" -> Acc;
   	     _ ->
  -		 case (EStr == FStr) or SpecialForm(Form) of
  +		   case UseOriginalCode of
   		   true ->
   		       Acc;
   		   false when F =/= "" ->
  
positive.code: 		   _ -> Acc ++ Delimitor
  		 end
  	   end,
      Str = case (EStr == FStr) or SpecialForm(Form) of
  	    true ->
  		refac_util:concat_toks(refac_misc:get_toks(Form));
  	    false ->
  
negative.code: 	  D3 = lay_elems(fun refac_prettypr_0:sep/1, BodyDocs, Body),
  	  HeadLastLn = case refac_syntax:clause_guard(Node) of
  			 none -> case Pats of
  				   [] -> get_end_line(Node);
  				   _ ->  get_end_line(lists:last(Pats))
  				 end;
  			 _ -> get_end_line(refac_syntax:clause_guard(Node))
  		       end,
  