Index: tcmt.scm
==================================================================
--- tcmt.scm
+++ tcmt.scm
@@ -44,11 +44,11 @@
 (defstruct testdat
   (tc-type #f)
   (state   #f)
   (status  #f)
   (overall #f)
-  flowid
+  (flowid  #f)
   tctname
   tname
   (event-time #f)
   details
   comment
@@ -203,10 +203,12 @@
 		     (status   (db:test-get-status       test-rec))
 		     (etime    (db:test-get-event_time   test-rec))
 		     (duration (or (any->number (db:test-get-run_duration test-rec)) 0))
 		     (comment  (db:test-get-comment      test-rec))
 		     (logfile  (db:test-get-final_logf   test-rec))
+                     (hostn    (db:test-get-host         test-rec))
+                     (pid      (db:test-get-process_id   test-rec))
 		     (newstat  (cond
 				((equal? state "RUNNING")   "RUNNING")
 				((equal? state "COMPLETED") status)
 				(flush   (conc state "/" status))
 				(else "UNK")))
@@ -222,11 +224,14 @@
 				   #f))
 		     (prev-tdat (hash-table-ref/default data tname #f)) 
 		     (tdat      (if is-top
 				    #f
 				    (let ((new (or prev-tdat (make-testdat)))) ;; recycle the record so we keep track of already printed items
-				      (testdat-flowid-set!     new flowid)
+				      (testdat-flowid-set!     new (or (testdat-flowid new)
+                                                                       (if (eq? pid 0)
+                                                                           tctname
+                                                                           (conc hostn "-" pid))))
 				      (testdat-tctname-set!    new tctname)
 				      (testdat-tname-set!      new tname)
 				      (testdat-state-set!      new state)
 				      (testdat-status-set!     new status)
 				      (testdat-comment-set!    new cmtstr)