anchor.diff:      Formatted = io_lib:format("~p",[Comment]),
       send_html_comment(lists:flatten(Formatted)).
   
  +%%%-----------------------------------------------------------------
  +%%% @spec comment(Format, Args) -> void()
  +%%%      Format = string()
  +%%%      Args = list()
  +%%%
  +%%% @doc Print the formatted string in the comment field in
  +%%% the table on the test suite result page.
  +%%% 
  +%%% <p>The <code>Format</code> and <code>Args</code> arguments are
  +%%% used in call to <code>io_lib:format/2</code> in order to create
  +%%% the comment string. The behaviour of <code>comment/2</code> is
  +%%% otherwise the same as the <code>comment/1</code> function (see
  +%%% above for details).</p>
  +comment(Format, Args) when is_list(Format), is_list(Args) ->
  +    Formatted =
  +	case (catch io_lib:format(Format, Args)) of
  +	    {'EXIT',Reason} ->  % bad args
  +		exit({Reason,{?MODULE,comment,[Format,Args]}});
  +	    String ->
  +		lists:flatten(String)
  +	end,
  +    send_html_comment(Formatted).
  +
   send_html_comment(Comment) ->
       Html = "<font color=\"green\">" ++ Comment ++ "</font>",
       ct_util:set_testdata({comment,Html}),
  
positive.code: %%% @spec run(TestDirs) -> Result
  %%%   TestDirs = TestDir | [TestDir]
  %%%
  %%% @doc Run all testcases in all suites in the given directories.
  %%% @see run/3.
  run(TestDirs) ->
      ct_run:run(TestDirs).
  
negative.code: %%%   Cases = atom() | [atom()]
  %%%   Result = [TestResult] | {error,Reason}
  %%%
  %%% @doc Run the given test case(s).
  %%%
  %%% <p>Requires that <code>ct:install/1</code> has been run first.</p>
  %%%
  