Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -2635,19 +2635,19 @@
    run-id
    #f
    (lambda (dbdat db)
      (let ((res   (cons #f #f))
 	   (stmth (db:get-cache-stmth dbdat db "SELECT state,status FROM tests WHERE id=? AND run_id=?;")))
-       (db:with-mutex-for-stmth
-	(lambda()
+       ;; (db:with-mutex-for-stmth
+	;; (lambda()
 	  (sqlite3:for-each-row ;; attemptnum added to hold pid of top process (not Megatest) controlling a test
 	   (lambda (state status)
 	     (cons state status))
 	   ;; db
 	   stmth ;;"SELECT state,status FROM tests WHERE id=? AND run_id=?;" ;; stmth try not compiling this one - yes, this fixed the bind issue
 	   test-id run-id)))
-       res))))
+       res)) ;; ))
 
 ;; Use db:test-get* to access
 ;; Get test data using test_ids. NB// Only works within a single run!!
 ;;
 (define (db:get-test-info-by-ids dbstruct run-id test-ids)

Index: dbfile.scm
==================================================================
--- dbfile.scm
+++ dbfile.scm
@@ -1581,14 +1581,14 @@
 			    (hash-table-set! stmt-cache stmt newstmth)
 			    newstmth))))
     (mutex-unlock! *get-cache-stmth-mutex*)
     result))
 
-(define *mutex-stmth-call* (make-mutex))
-
-(define (db:with-mutex-for-stmth proc)
-  (mutex-lock! *mutex-stmth-call*)
-  (let* ((res (proc)))
-    (mutex-unlock! *mutex-stmth-call*)
-    res))
+;; (define *mutex-stmth-call* (make-mutex))
+;; 
+;; (define (db:with-mutex-for-stmth proc)
+;;   (mutex-lock! *mutex-stmth-call*)
+;;   (let* ((res (proc)))
+;;     (mutex-unlock! *mutex-stmth-call*)
+;;     res))
 
 )

Index: dbmod.scm
==================================================================
--- dbmod.scm
+++ dbmod.scm
@@ -95,12 +95,12 @@
 			;; (> *api-process-request-count* 50)))
 	 (dbdat     (dbmod:open-db dbstruct run-id (dbfile:db-init-proc)))
 	 (dbh       (dbr:dbdat-dbh dbdat)) ;; this will be the cachedb handle
 	 (dbfile    (dbr:dbdat-dbfile dbdat)))
     ;; if nfs mode do a sync if delta > 2
-    (let* ((last-update (dbr:dbstruct-last-update dbstruct))
-	   (sync-proc   (dbr:dbstruct-sync-proc dbstruct))
+    #;(let* ((last-update (dbr:dbstruct-last-update dbstruct))
+	   ;; (sync-proc   (dbr:dbstruct-sync-proc dbstruct))
 	   (curr-secs   (current-seconds)))
       (if (> (- curr-secs last-update) 5)
 	  (begin
 	    (sync-proc last-update)