Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -468,11 +468,13 @@
 	       (hash-table-set! sync-durations (conc fname".db")
 				(- (current-milliseconds) start-time)))
 	     (debug:print-info 3 *default-log-port* "skipping sync. " file " is up to date")
          )))
      dbfiles)
-    (if dbdat (dbfile:add-dbdat dbstruct #f dbdat)))
+    ;; WHY does the dbdat need to be added back?
+    (if dbdat (dbfile:add-dbdat dbstruct #f dbdat))
+    )
   #t)
 
 ;; options:
 ;;
 ;;  'killservers  - kills all servers
@@ -598,10 +600,11 @@
 	      (mtdb   (dbr:subdb-mtdb subdb))
 	      (tmpdb  (db:get-subdb dbstruct run-id))
 	      (refndb (dbr:subdb-refndb subdb))
 	      (newres (db:sync-tables (db:sync-all-tables-list dbstruct (db:get-keys dbstruct)) last-update tmpdb refndb mtdb)))
 	 ;; (stack-push! (dbr:subdb-dbstack subdb) tmpdb)
+	 ;; BUG: verify this is really needed
 	 (dbfile:add-dbdat dbstruct run-id tmpdb)
 	 (set! res (cons newres res))))
      subdbs)
     res))
 
@@ -904,10 +907,11 @@
 	  "SELECT d.id,d.archive_area_name,disk_path,last_df,last_df_time FROM archive_disks AS d
              INNER JOIN archive_blocks AS b ON d.id=b.archive_disk_id
              WHERE b.id IN (" (string-intersperse (map conc res) ",") ") AND
          last_df > ?;")
 	 dneeded))
+    ;; BUG: Verfify this is really needed
     (dbfile:add-dbdat dbstruct #f dbdat)
     blocks))
     
 ;; returns id of the record, register a disk allocated to archiving and record it's last known
 ;; available space

Index: dbfile.scm
==================================================================
--- dbfile.scm
+++ dbfile.scm
@@ -37,13 +37,15 @@
 	stack
 	files
 	ports
 
 	commonmod
+	;; debugprint
 	)
 
-;; (import debugprint)
+(define keep-age-param (make-parameter 10)) ;; qif file age, if over move to attic
+(define num-run-dbs (make-parameter 10))     ;; number of db's in .megatest
 
 ;;======================================================================
 ;;  R E C O R D S
 ;;======================================================================
 
@@ -192,12 +194,10 @@
   (conc apath"/"(dbfile:run-id->dbname run-id)))
 
 (define (db:dbname->path apath dbname)
   (conc apath"/"dbname))
 
-(define num-run-dbs (make-parameter 4))
-
 (define (dbfile:run-id->dbnum run-id)
   (cond
    ((number? run-id)
     (modulo run-id (num-run-dbs)))
    ((not run-id) "main")   ;; 0 or main?
@@ -251,11 +251,11 @@
 (define (dbfile:add-dbdat dbstruct run-id dbdat)
   (let* ((subdb (dbfile:get-subdb dbstruct run-id))
 	 (dbstk (dbr:subdb-dbstack subdb))
 	 (count (stack-count dbstk)))
     (if (> count 15)
-	(dbfile:print-err "WARNING: stack for "run-id".db is large."))
+	(dbfile:print-err "WARNING: stack for "run-id".db is "count"."))
     (stack-push! dbstk dbdat)
     dbdat))
 
 ;; set up a subdb
 ;;
@@ -1015,12 +1015,10 @@
     ;; (mutex-unlock! *db-open-mutex*)
     dbdat))
 
 (define dbfile:db-init-proc (make-parameter #f))
 
-(define keep-age-param (make-parameter 10))
-
 ;; in xmaxima this gives a curve close to what I want:
 ;;    plot2d ((exp(x/1.2)-1)/300, [x, 0, 10])$
 ;;    plot2d ((exp(x/1.5)-1)/40, [x, 0, 10])$
 ;;    plot2d ((exp(x/5)-1)/40, [x, 0, 20])$
 (define (dbfile:droop x)

DELETED ext-tests/sixtyfivek/run-four.sh
Index: ext-tests/sixtyfivek/run-four.sh
==================================================================
--- ext-tests/sixtyfivek/run-four.sh
+++ /dev/null
@@ -1,9 +0,0 @@
-#!/bin/bash
-
-baserunname=$(date +ww%U.%w)
-for x in a b c d;do
-  runname=$baserunname$x
-  NBFAKE_LOG=$runname.log nbfake megatest -run -testpatt % -target mrdp/ip-xsc-2.0/fast -runname $runname -clean-cache
-  sleep 5
-done
-

Index: launch.scm
==================================================================
--- launch.scm
+++ launch.scm
@@ -29,18 +29,21 @@
 (import (prefix sqlite3 sqlite3:))
 
 (declare (unit launch))
 (declare (uses subrun))
 (declare (uses common))
+(declare (uses commonmod))
 (declare (uses configf))
 (declare (uses db))
 (declare (uses ezsteps))
 
 (include "common_records.scm")
 (include "key_records.scm")
 (include "db_records.scm")
 (include "megatest-fossil-hash.scm")
+
+(import commonmod)
 
 ;;======================================================================
 ;; ezsteps
 ;;======================================================================
 

Index: runs.scm
==================================================================
--- runs.scm
+++ runs.scm
@@ -1863,11 +1863,12 @@
                                    (newtestname (db:test-make-full-name hed my-item-path)))    ;; test names are unique on testname/item-path
                               (tests:testqueue-set-items!     new-test-record #f)
                               (tests:testqueue-set-itemdat!   new-test-record my-itemdat)
                               (tests:testqueue-set-item_path! new-test-record my-item-path)
                               (hash-table-set! test-records newtestname new-test-record)
-                              (set! tal (append tal (list newtestname)))))  ;; since these are itemized create new test names testname/itempath
+			      ;; BUG: This next line sucks up a lot of horsepower
+			      (set! tal (append tal (list newtestname)))))  ;; since these are itemized create new test names testname/itempath
                           items-in-testpatt)))
           
           
 
 	  ;; At this point we have possibly added items to tal but all must be handed off to