anchor.diff:  open_nodedir_index(Dir,StartTime) ->
       FullName = filename:join(Dir,?nodedir_index_name),
       {ok,Fd} = file:open(FullName,[write]),
  -    io:format(Fd,nodedir_index_header(StartTime),[]),
  +    io:put_chars(Fd,nodedir_index_header(StartTime)),
       Fd.
   
   print_nodedir(Node,RunDir,Fd) ->
  
positive.code: open_ct_master_log(Dir) ->
      FullName = filename:join(Dir,?ct_master_log_name),
      {ok,Fd} = file:open(FullName,[write]),
      io:format(Fd,header("Common Test Master Log", {[],[1,2],[]}),[]),
      %% maybe add config info here later
      io:put_chars(config_table([])),
      io:format(Fd,
  	      "<style>\n"
  	      "div.ct_internal { background:lightgrey; color:black }\n"
  	      "div.default     { background:lightgreen; color:black }\n"
  	      "</style>\n",
  	      []),
      io:format(Fd, 
  	      xhtml("<br><h2>Progress Log</h2>\n<pre>\n",
  		    "<br /><h2>Progress Log</h2>\n<pre>\n"),
  	      []),
      Fd.
  
  close_ct_master_log(Fd) ->
      io:format(Fd,"</pre>",[]),
      io:format(Fd,footer(),[]),
      file:close(Fd).
  
  config_table(Vars) ->
  
negative.code:     ok.
  
  close_nodedir_index(Fd) ->
      io:put_chars(Fd,index_footer()),
      file:close(Fd).
  
  nodedir_index_header(StartTime) ->
  