anchor.diff:         gen_http_request(Link),
          [Link,Parms]).
   
  +link_post(_State,Args,{'EXIT',Error}) ->
  +  io:format
  +    ("~n*** Error: when calling generating/issuing the http call~n~s~n"++
  +       "Erlang raised the exception~n~p~n",
  +     [format_http_call(Args),Error]),
  +  error(bad_link);
   link_post(State,Args,Result) ->
     try make_call(postcondition,fun postcondition_int/3,[State,Args,Result])
     catch Class:Reason ->
  
positive.code:     end,
    Timeout = get_option(timeout),
    Request = [Type,URIwithBody,[{timeout,Timeout}],[]],
    %%io:format("Request=~p~n",[Request]),
    case get_option(show_uri) of
      true -> io:format("Accessing URI ~p~n",[URI]);
      false -> ok
  
negative.code: 	 EncodedParms = encode_generated_parameters(QueryParms),
  	 case re:split(PreURI,"\\?") of
  	   [_] ->
  	     {binary_to_list(PreURI),RequestType,Body,EncodedParms};
  	   [BinaryURI,BinaryParms] -> 
  	     {binary_to_list(BinaryURI),RequestType,Body,
  	      split_parms(BinaryParms)++EncodedParms}
  