anchor.diff:      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
  
positive.code: 				 mod_loc(get_loc()))]},
  	    {failed,{Mod,end_per_testcase,Why}};
  	Other ->
  	    comment(io_lib:format("<font color=\"red\">"
  				  "WARNING: ~w thrown!"
  				  "</font>\n",[EndFunc])),
  	    group_leader() ! {printout,12,
  			      "WARNING: ~w thrown!\n"
  			      "Reason: ~p\n"
  
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}} ->
  