anchor.diff:  	    case ExpList1 of
   		[] -> ok;
   		_ -> throw({error, "The selected expression sequence "
  -		      "cannot be replaced by  a function call!"})
  +		      "cannot be replaced by a function call!"})
   	    end
       end.
   
  
positive.code: 
  
  replace_expr_with_fun_call(Form, ExpList, NewFunName, ParNames, VarsToExport) ->
      Op = refac_syntax:operator(NewFunName),
      Pars = [refac_syntax:variable(P)|| P <-ParNames],
      FunCall= refac_syntax:application(Op, Pars),
      NewExpr = case length(VarsToExport) of 
  
negative.code:     case refac_util:pos_to_expr_list(AnnAST, Start, End) of
        [] -> ExpList = [],
  	    throw({error, "You have not selected an expression "
  			  "or a sequence of expressions, "
  		   "or the function containing the expression(s) selected is malformed."});
        ExpList -> ExpList
      end,
      {ok, Fun} = refac_util:expr_to_fun(AnnAST, hd(ExpList)),
  