Index: launch.scm
==================================================================
--- launch.scm
+++ launch.scm
@@ -741,11 +741,12 @@
               )
 
 
 	      ;; for automated creation of the rollup html file this is a good place...
 	      (if (not (equal? item-path ""))
-		      (tests:summarize-items run-id test-id test-name #f))
+		  (tests:summarize-items run-id test-id test-name #f))
+	      ;; BUG was this meant to be the antecnt of the if above?
 	      ;; BUG was this meant to be the antecnt of the if above?
 	      (tests:summarize-test run-id test-id)  ;; don't force - just update if no
               ;; Leave a .final-status file for the top level test
               (tests:save-final-status run-id test-id)
 	      (rmt:update-run-stats run-id (rmt:get-raw-run-stats run-id))) ;; end of let*

Index: tcp-transportmod.scm
==================================================================
--- tcp-transportmod.scm
+++ tcp-transportmod.scm
@@ -108,10 +108,11 @@
   )
 
 ;; parameters
 ;;
 (define tt-server-timeout-param (make-parameter 600))
+(define tt-server-profile-string (make-parameter ""))
 
 ;; make ttdat visible
 (define *server-info* #f)
 
 (define (tt:make-remote areapath)