anchor.diff:  		_ ->
   		    try 
   			Str = refac_util:concat_toks(Toks),
  -			{ok, Toks1, _} = refac_scan:string(Str, {1,1}, 8, 'unix'),
  +			{ok, Toks1, _} = refac_scan:string(Str, {1,1}, ?TabWidth, 'unix'),
   			OriginalForm = refac_epp_dodger:normal_parser(Toks1, []),
   			
   			NewStr = format(Form, []),
  -			{ok, Toks2, _} = refac_scan:string(NewStr, {1,1}, 8, 'unix'),
  +			{ok, Toks2, _} = refac_scan:string(NewStr, {1,1}, ?TabWidth, 'unix'),
   			NewForm = refac_epp_dodger:normal_parser(Toks2, []),
   			best(OriginalForm) == best(NewForm)
   		    of
  
positive.code: 
  -module(refac_prettypr).
  
  -compile(export_all).
  
  -export([format/1,format/2,best/1,best/2,layout/1,lay_string/1,
  	 layout/2,get_ctxt_precedence/1,set_ctxt_precedence/2,
  	 get_ctxt_paperwidth/1,set_ctxt_paperwidth/2,
  	 get_ctxt_linewidth/1,set_ctxt_linewidth/2,
  	 get_ctxt_hook/1,set_ctxt_hook/2,get_ctxt_user/1,
  	 set_ctxt_user/2,print_ast/2]).
  
  -export([no_of_changed_funs/1]). %% For casestudy purpose.
  
  
  -import(refac_prettypr_0,
  
negative.code: 		    Pre ++ Default++Post
  	    end
      end.
  
  remove_trailing_whitespace(Str) ->
      remove_trailing_whitespace(Str, []).
  
  remove_trailing_whitespace([], Acc) ->
      lists:reverse(Acc);
  remove_trailing_whitespace([$,,$ ,$\r| S], Acc) ->
      remove_trailing_whitespace(S, [$\r,$,| Acc]);
  remove_trailing_whitespace([$,,$ ,$\n| S], Acc) ->
      remove_trailing_whitespace(S, [$\n,$,| Acc]);
  remove_trailing_whitespace([C| S], Acc) ->
      remove_trailing_whitespace(S, [C| Acc]).
  
  
  has_parentheses(Node, Toks) ->
  