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:     ok.
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  %% os_type() -> OsType
  %%
  %% Returns the OsType of the target node. OsType is
  
negative.code: 			Other
  		end,
  	    run_test_case_msgloop(Ref,Pid,CaptureStdout,Terminate1,NewComment2,CurrConf);
  	{read_comment,From} ->
  	    From ! {self(),read_comment,Comment},
  	    run_test_case_msgloop(Ref,Pid,CaptureStdout,Terminate,Comment,CurrConf);
  	{set_curr_conf,NewCurrConf} ->
  	    run_test_case_msgloop(Ref,Pid,CaptureStdout,Terminate,Comment,NewCurrConf);
  	{'EXIT',Pid,{Ref,Time,Value,Loc,Opts}} ->
  