anchor.diff:    run_statem(PrivateModule,Files,[]).
   
   run_statem(PrivateModule,Files,Options) ->
  +  if
  +    is_list(Files) ->
  +      lists:foreach
  +	(fun (File) ->
  +	     if
  +	       is_list(File) -> ok;
  +	       true ->
  +		 io:format
  +		   ("~n*** Error: the argument ~p (files) to run_statem "++
  +		      " is not contain a list of files.~n",
  +		    [Files]),
  +		 throw(badarg)
  +	     end
  +	 end, Files);
  +    true -> 
  +      io:format
  +	("~n*** Error: the argument ~p (files) to run_statem "++
  +	   " is not contain a list of files.~n",
  +	 [Files]),
  +      throw(badarg)
  +  end,
     inets:start(),
     case proplists:get_value(cookies,Options) of
       true ->
  
positive.code:   http_uri:encode(String).
  
  http_request(PreURI,Type,Body,QueryParms,Link) ->
    %%io:format("URI: ~s cookies are ~p~n",[PreURI,httpc:which_cookies()]),
    URI =
      case QueryParms of
        [] -> PreURI;
  
negative.code:     end,
    Timeout = get_option(timeout),
    Request = [Type,URIwithBody,[{timeout,Timeout}],[]],
    case get_option(show_uri) of
      true -> io:format("Accessing URI ~p~n",[URI]);
      false -> ok
  