Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -65,17 +65,18 @@
 
 (define *global-delta* 0)
 (define *last-global-delta-printed* 0)
 (define (open-run-close-measure  proc idb . params)
   (let* ((start-ms (current-milliseconds))
-	 (db       (if idb idb (open-db))))
+	 (db       (if idb idb (open-db)))
+         (throttle (string->number (config-lookup *configdat* "setup" "throttle"))))
     (if (equal? (config-lookup *configdat* "setup"     "synchronous") "yes")
 	(sqlite3:execute db "PRAGMA synchronous = 0;"))
     (set! res      (apply proc db params))
     (if (not idb)(sqlite3:finalize! db))
     ;; scale by 10, average with current value.
-    (set! *global-delta* (/ (+ *global-delta* (/ (- (current-milliseconds) start-ms) 200)) 2))
+    (set! *global-delta* (/ (+ *global-delta* (/ (- (current-milliseconds) start-ms) (if throttle throttle 100))) 2))
     (if (> (abs (- *last-global-delta-printed* *global-delta*)) 0.08) ;; don't print all the time, only if it changes a bit
 	(begin
 	  (debug:print 1 "INFO: launch throttle factor=" *global-delta*)
 	  (set! *last-global-delta-printed* *global-delta*)))
     res))
@@ -623,10 +624,11 @@
 	    testnames))
 
 (define (db:delete-tests-in-state db run-id state)
   (sqlite3:execute db "DELETE FROM tests WHERE state=? AND run_id=?;" state run-id))
 
+;; speed up for common cases with a little logic
 (define (db:test-set-state-status-by-id db test-id newstate newstatus newcomment)
   (cond
    ((and newstate newstatus newcomment)
     (sqlite3:exectute db "UPDATE tests SET state=?,status=?,comment=? WHERE id=?;" newstate newstatus test-id))
    ((and newstate newstatus)

Index: tests/fullrun/megatest.config
==================================================================
--- tests/fullrun/megatest.config
+++ tests/fullrun/megatest.config
@@ -9,11 +9,12 @@
 area1 /tmp/oldarea/megatest
 
 [include config/mt_include_1.config]
 
 [setup]
-synchronous yes
+synchronous no
+throttle 50
 
 [validvalues]
 state start end 
 status pass fail n/a 0 1 running