Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -325,12 +325,12 @@
 		(> mtime stime)
 		force-sync)
 	    (begin
 	      (db:delay-if-busy rundb)
 	      (db:delay-if-busy olddb)
+	      (dbr:dbstruct-set-stime! dbstruct (current-milliseconds))
 	      (let ((num-synced (db:sync-tables db:sync-tests-only inmem refdb rundb olddb)))
-		(dbr:dbstruct-set-stime! dbstruct (current-milliseconds))
 		(mutex-unlock! *http-mutex*)
 		num-synced)
 	      (begin
 		(mutex-unlock! *http-mutex*)
 		0))))))

ADDED   mlaunch.scm
Index: mlaunch.scm
==================================================================
--- /dev/null
+++ mlaunch.scm
@@ -0,0 +1,26 @@
+;; Copyright 2006-2014, Matthew Welland.
+;; 
+;;  This program is made available under the GNU GPL version 2.0 or
+;;  greater. See the accompanying file COPYING for details.
+;; 
+;;  This program is distributed WITHOUT ANY WARRANTY; without even the
+;;  implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
+;;  PURPOSE.
+
+;;  strftime('%m/%d/%Y %H:%M:%S','now','localtime')
+
+;;======================================================================
+;; MLAUNCH
+;;
+;;   take jobs from the given queue and keep launching them keeping
+;;   the cpu load at the targeted level
+;;
+;;======================================================================
+
+(use sqlite3 srfi-1 posix regex regex-case srfi-69 dot-locking format)
+(import (prefix sqlite3 sqlite3:))
+
+(declare (unit mlaunch))
+(declare (uses db))
+(declare (uses common))
+