Index: minimt/db.scm
==================================================================
--- minimt/db.scm
+++ minimt/db.scm
@@ -55,10 +55,11 @@
 			     (begin
 			       (print "FATAL: No existing db and no write access thus cannot create " fullname)  ;; no db and no write access cannot proceed.
 			       (exit 1))))
 	 (dbconn         (make-dbconn-dat)))
     (set-busy-handler! db (busy-timeout 30000)) ;; set a busy timeout
+    (exec (sql db "PRAGMA synchronous=0;"))
     (if (and init write-access (not already-exists))
 	(init db))
     (dbconn-dat-dbh-set!       dbconn db)
     (dbconn-dat-writeable-set! dbconn write-access)
     (dbconn-dat-path-set!      dbconn path)

Index: minimt/minimt.scm
==================================================================
--- minimt/minimt.scm
+++ minimt/minimt.scm
@@ -18,19 +18,21 @@
   (rmt:create-test dbconn run-id test-name)
   (let ((test-id (rmt:get-test-id dbconn run-id test-name)))
     (rmt:test-set-state-status dbconn test-id "LAUNCHED" "na")
     (thread-sleep! *launchdelay*)
     (rmt:test-set-state-status dbconn test-id "RUNNING" "na")
-    (for-each
-     (lambda (step-name)
+    (let loop ((step-num 0))
+      (let ((step-name (conc "step" step-num)))
        (rmt:create-step dbconn test-id step-name)
        (let ((step-id (get-step-id dbconn test-id step-name)))
 	 (rmt:step-set-state-status dbconn step-id "START" -1)
 	 (thread-sleep! *stepdelay*)
 	 (rmt:step-set-state-status dbconn step-id "END" 0)
 	 (print"   STEP: " step-name " done.")))
-     '("step1" "step2" "step3" "step4" "step5" "step6" "step7" "step8" "step9"))
+      (if (< step-num *numsteps*)
+	  (loop (+ step-num 1))))
+    (rmt:test-set-state-status dbconn test-id "COMPLETED" (if (> (random 10) 2) "PASS" "FAIL"))
     (print "TEST: " test-name " done.")
     test-id))
 
 ;; RUN A RUN
 (define (run-run dbconn target run-name num-tests)

Index: minimt/setup.scm
==================================================================
--- minimt/setup.scm
+++ minimt/setup.scm
@@ -1,8 +1,9 @@
 (define *remotehost* "orion")
 (define *homehost*   "zeus")
 (define *homepath*   "/nfs/phoebe/disk1/home/mfs_matt/data/megatest/minimt/runtest")
+(define *numsteps*   100)
 (define *numtests*   50)
 (define *numruns*    5)
 (define *targets*    '("targ1"))
 (define *testdelay*  0)
 (define *rundelay*   0)