anchor.diff:  	true ->
   	    case lists:member({NewFunName, Arity}, refac_rename_fun:testserver_callback_funs()) of 
   		true ->
  -		    throw({warning, "The new function name means that"
  +		    throw({warning, "The new function name means that "
   			   "the new function is a Test Server callback function, continue?"});
   		false -> ok
   	    end;
  
positive.code:     check_unsafe_vars(ExpList),
      funcall_replaceable(Fun, ExpList),
      TestFrameWorkUsed = refac_util:test_framework_used(FileName),
      catch test_framework_aware_name_checking(TestFrameWorkUsed, NewFunName, length(FrVars)).
  
  
  check_unsafe_vars(ExpList) ->
  
negative.code: 
  
  
  do_fun_extraction(AnnAST, ExpList, NewFunName, ParNames, VarsToExport, EnclosingFunName, EnclosingFunArity) ->
      NewFunName1 = refac_syntax:atom(NewFunName),
      Pars = [refac_syntax:variable(P)||P<-ParNames],
      LastExprExportVars =[V|| {V, _Pos} <-refac_util:get_var_exports(lists:last(ExpList))],
  