Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -155,11 +155,11 @@
 ;; NB// #f => return dbdir only
 ;;      (was planned to be;  zeroth db with name=main.db)
 ;; 
 ;; If run-id is #f return to create and retrieve the path where the db will live.
 ;;
-(define (db:dbfile-path) ;;  run-id)
+(define (db:dbfile-path . junk) ;;  run-id)
   (let* ((dbdir           (common:get-db-tmp-area))) ;; (db:get-dbdir))
 ;; 	 (fname           (if run-id
 ;; 			      (if (eq? run-id 0) "main.db" (conc run-id ".db"))
 ;; 			      #f)))
     (handle-exceptions

Index: tests/fullrun/megatest.config
==================================================================
--- tests/fullrun/megatest.config
+++ tests/fullrun/megatest.config
@@ -45,13 +45,13 @@
 # this may save a few milliseconds on launching tests
 # launchwait no
 waivercommentpatt ^WW\d+ [a-z].*
 incomplete-timeout 1
 
-# wait 3.2 seconds between launching every process
+# wait 0.5 seconds between launching every process
 #
-launch-delay 3.2
+launch-delay 0.5
 
 # wait for runs to completely complete. yes, anything else is no
 run-wait yes
 
 # If set to "default" the old code is used. Otherwise defaults to 200 or uses