Index: api.scm
==================================================================
--- api.scm
+++ api.scm
@@ -20,10 +20,11 @@
   '(get-key-val-pairs
     get-keys
     test-toplevel-num-items
     get-test-info-by-id
     test-get-rundir-from-test-id
+    get-count-tests-running-for-testname
     get-count-tests-running
     get-count-tests-running-in-jobgroup
     get-previous-test-run-record
     get-matching-previous-test-run-records
     test-get-logfile-info
@@ -181,10 +182,11 @@
 	    
 	    ;; TESTS
 	    ((test-toplevel-num-items)         (apply db:test-toplevel-num-items dbstruct params))
 	    ((get-test-info-by-id)	       (apply db:get-test-info-by-id dbstruct params))
 	    ((test-get-rundir-from-test-id)    (apply db:test-get-rundir-from-test-id dbstruct params))
+	    ((get-count-tests-running-for-testname (apply db:get-count-tests-running-for-testname dbstruct params)))
 	    ((get-count-tests-running)         (apply db:get-count-tests-running dbstruct params))
 	    ((get-count-tests-running-in-jobgroup) (apply db:get-count-tests-running-in-jobgroup dbstruct params))
 	    ;; ((delete-test-step-records)        (apply db:delete-test-step-records dbstruct params))
 	    ((get-previous-test-run-record)    (apply db:get-previous-test-run-record dbstruct params))
 	    ((get-matching-previous-test-run-records)(apply db:get-matching-previous-test-run-records dbstruct params))

Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -2211,10 +2211,23 @@
    (lambda (db)
      (sqlite3:first-result
       db
       "SELECT count(id) FROM tests WHERE state in ('RUNNING','LAUNCHED','REMOTEHOSTSTART') AND run_id=? AND NOT (uname = 'n/a' AND item_path = '');" run-id))))
 
+;; For a given testname how many items are running? Used to determine
+;; probability for regenerating html
+;; 
+(define (db:get-count-tests-running-for-testname dbstruct run-id testname)
+  (db:with-db
+   dbstruct
+   run-id
+   #f
+   (lambda (db)
+     (sqlite3:first-result
+      db
+      "SELECT count(id) FROM tests WHERE state in ('RUNNING','LAUNCHED','REMOTEHOSTSTART') AND run_id=? AND NOT (uname = 'n/a' AND item_path = '') AND testname=?;" run-id testname))))
+
 (define (db:get-count-tests-running-in-jobgroup dbstruct run-id jobgroup)
   (let* ((dbdat (db:get-db dbstruct #f))
 	 (db    (db:dbdat-get-db dbdat)))
   (if (not jobgroup)
       0 ;; 

Index: launch.scm
==================================================================
--- launch.scm
+++ launch.scm
@@ -435,11 +435,12 @@
 					    (args:get-arg "-m") #f)
 		    ;; need to update the top test record if PASS or FAIL and this is a subtest
 		    ;; NO NEED TO CALL roll-up-pass-fail-counts HERE, THIS IS DONE IN roll-up-pass-fail-counts called by tests:test-set-status!
 		    ))
 	      ;; for automated creation of the rollup html file this is a good place...
-	      (if (not (equal? item-path ""))
+	      (if (and (not (equal? item-path ""))
+		       (< (random (rmt:get-count-tests-running-for-testname run-id test-name)) 20))
 		  (tests:summarize-items run-id test-id test-name #f))
 	      (tests:summarize-test run-id test-id)) ;; don't force - just update if no
 	    (mutex-unlock! m)
 	    (debug:print 2 "Output from running " fullrunscript ", pid " (vector-ref exit-info 0) " in work area " 
 			 work-area ":\n====\n exit code " (vector-ref exit-info 2) "\n" "====\n")

Index: rmt.scm
==================================================================
--- rmt.scm
+++ rmt.scm
@@ -492,10 +492,13 @@
 ;; Statistical queries
 
 (define (rmt:get-count-tests-running run-id)
   (rmt:send-receive 'get-count-tests-running run-id (list run-id)))
 
+(define (rmt:get-count-tests-running-for-testname run-id testname)
+  (rmt:send-receive 'get-count-tests-running-for-testname run-id (list run-id testname)))
+
 (define (rmt:get-count-tests-running-in-jobgroup run-id jobgroup)
   (rmt:send-receive 'get-count-tests-running-in-jobgroup run-id (list run-id jobgroup)))
 
 (define (rmt:roll-up-pass-fail-counts run-id test-name item-path status)
   (rmt:send-receive 'roll-up-pass-fail-counts run-id (list run-id test-name item-path status)))