anchor.diff:  		_ -> {error, "Invalid nest level"}
   	    end
       catch 
  -	error:_ -> {error, "Invalid nest level!"}
  -    end.
  -
  +	_:_ -> {error, "Invalid nest level!"}
  +    end.
   
   nested_exprs_1(FName, NestLevel, ExprType, SearchPaths) ->
       {ok, {AnnAST, Info}} = refac_util:parse_annotate_file(FName, true, SearchPaths),
  -    ModName = case lists:keysearch(module, 1, Info) of
  -		  {value, {module, Mod}} -> Mod;
  -		  _ -> list_to_atom(filename:basename(FName, ".erl"))
  -	      end,
  -    Fun = fun(T,S) ->
  -		  case refac_syntax:type(T) of 
  -		      function ->
  -			  FunName = refac_syntax:atom_value(refac_syntax:function_name(T)),
  -			  Arity = refac_syntax:function_arity(T),
  -			  Fun1 = fun(Node, S1) ->
  -					 case refac_syntax:type(Node) of 
  -					     ExprType -> Range = refac_util:get_range(Node),
  -							  [{ModName, FunName, Arity, Range} |S1];
  -					     _  -> S1
  -					 end
  -				 end,
  -			  refac_syntax_lib:fold(Fun1, S, T);
  -		      _  -> S
  +    ModName = get_module_name(FName, Info),
  +    Fun = fun (T, S) ->
  +		  case refac_syntax:type(T) of
  +		    function ->
  +			FunName = refac_syntax:atom_value(refac_syntax:function_name(T)),
  +			Arity = refac_syntax:function_arity(T),
  +			Fun1 = fun (Node, S1) ->
  +				       case refac_syntax:type(Node) of
  +					 ExprType ->
  +					     Range = refac_util:get_range(Node),
  +					     [{ModName, FunName, Arity, Range} | S1];
  +					 _ -> S1
  +				       end
  +			       end,
  +			refac_syntax_lib:fold(Fun1, S, T);
  +		    _ -> S
   		  end
   	  end,
       Ranges = lists:usort(refac_syntax_lib:fold(Fun, [], AnnAST)),
       SortedRanges = sort_ranges(Ranges),
  -    ResRanges = lists:filter(fun(R) -> length(R) >= NestLevel end, SortedRanges),
  -    Funs = lists:usort(lists:map(fun(R) -> {M, F, A, _R} = hd(R), 
  -					   {M, F, A}
  -				 end, ResRanges)),	
  +    ResRanges = lists:filter(fun (R) -> length(R) >= NestLevel end, SortedRanges),
  +    Funs = lists:usort(lists:map(fun (R) -> {M, F, A, _R} = hd(R), {M, F, A} end,
  +				 ResRanges)),
       Funs.
  +
  +get_module_name(FName, Info) ->
  +    ModName = case lists:keysearch(module, 1, Info) of
  +		{value, {module, Mod}} -> Mod;
  +		_ -> list_to_atom(filename:basename(FName, ".erl"))
  +	      end,
  +    ModName.
     
   	
   format_result(Funs, NestLevel, ExprType) -> 
  
positive.code: 		false ->{error, "Invalid number of lines!"}
  	    end
      catch 
  	error:_ ->
  	     {error, "Invalid number of lines"}
      end.
  
  long_functions_2(FName, Lines, SearchPaths) ->
      {ok, {AnnAST, Info}} = refac_util:parse_annotate_file(FName, true, SearchPaths),
      case lists:keysearch(module, 1, Info) of
        {value, {module, ModName}} -> ModName;
        _ -> ModName = list_to_atom(filename:basename(FName, ".erl")), ModName
      end,
      Fun = fun (Node, S) ->
  		  case refac_syntax:type(Node) of
  		      function ->
  
negative.code: 
  non_tail_recursive_servers(FName, SearchPaths) ->
      {ok, {AnnAST, Info}} = refac_util:parse_annotate_file(FName, true, SearchPaths),
      ModName = get_module_name(FName, Info),
      Fun = fun (T, S) ->
  		  case refac_syntax:type(T) of
  		    function ->
  