anchor.diff:  	      "View I/O logged after the test run</a></li>\n</ul>\n",
   	      [MiscIoName,MiscIoName]),
   
  -    print_style(Fd,group_leader(),undefined),
  +    print_style(Fd, fun io:format/3, undefined),
       io:format(Fd, 
   	      xhtml("<br><h2>Progress Log</h2>\n<pre>\n",
   		    "<br />\n<h4>PROGRESS LOG</h4>\n<pre>\n"), []),
       Fd.
   
  -print_style(Fd,GL,undefined) ->
  +print_style(Fd, IoFormat, undefined) ->
       case basic_html() of
   	true ->
   	    Style = "<style>\n
   		div.ct_internal { background:lightgrey; color:black; }\n
   		div.default     { background:lightgreen; color:black; }\n
   		</style>\n",
  -	    if Fd == GL -> io:format(["$tc_html",Style], []);
  -	       true     -> io:format(Fd, Style, [])
  -	    end;
  +	    IoFormat(Fd, Style, []);
   	_ ->
   	    ok
       end;
   
  -print_style(Fd,GL,StyleSheet) ->
  +print_style(Fd, IoFormat, StyleSheet) ->
       case file:read_file(StyleSheet) of
   	{ok,Bin} ->
   	    Str = b2s(Bin,encoding(StyleSheet)),
  
positive.code: %%% <p>This function is called by ct_framework:init_tc/3</p>
  init_tc(RefreshLog) ->
      call({init_tc,self(),group_leader(),RefreshLog}),
      io:format(["$tc_html",xhtml("", "<br />")]),
      ok.
  
  %%%-----------------------------------------------------------------
  
negative.code: 
  			case erlang:is_process_alive(TCGL) of
  			    true ->
  				try tc_io_format(TCGL, "~ts",
  					      [lists:foldl(IoFun,[],Content)]) of
  				    _ -> ok
  				catch
  