anchor.diff:  				 mod_loc(get_loc()))]},
   	    {failed,{Mod,end_per_testcase,Why}};
   	Other ->
  -	    comment(io_lib:format("<font color=\"red\">"
  +	    Comment0 = case read_comment() of
  +			   ""  -> "";
  +			   Cmt -> Cmt ++ "<br>"
  +		       end,
  +	    comment(io_lib:format("~s<font color=\"red\">"
   				  "WARNING: ~w thrown!"
  -				  "</font>\n",[EndFunc])),
  +				  "</font>\n",[Comment0,EndFunc])),
   	    group_leader() ! {printout,12,
   			      "WARNING: ~w thrown!\n"
   			      "Reason: ~p\n"
  
positive.code: 	{'$test_server_ok',_} ->
  	    ok;
  	{'EXIT',Reason} = Why ->
  	    comment(io_lib:format("<font color=\"red\">"
  				  "WARNING: ~w crashed!"
  				  "</font>\n",[EndFunc])),
  	    group_leader() ! {printout,12,
  			      "WARNING: ~w crashed!\n"
  			      "Reason: ~p\n"
  
negative.code:     ok.
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  %% read_comment() -> string()
  %%
  %% Read the current comment string stored in
  %% state during test case execution.
  read_comment() ->
      MsgLooper = group_leader(),
      MsgLooper ! {read_comment,self()},
      receive
  	{MsgLooper,read_comment,Comment} ->
  	    Comment
      after
  	5000 ->
  	    ""
      end.
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  %% os_type() -> OsType
  %%
  %% Returns the OsType of the target node. OsType is
  