Index: api.scm
==================================================================
--- api.scm
+++ api.scm
@@ -147,17 +147,17 @@
 ;;
 ;;    - returns #( flag result )
 ;;
 (define (api:execute-requests dbstruct dat)
   (db:open-no-sync-db) ;; sets *no-sync-db*
-  (handle-exceptions
-   exn
-   (let ((call-chain (get-call-chain)))
-     (debug:print 0 *default-log-port* "WARNING: api:execute-requests received an exception from peer, dat=" dat ", exn=" exn)
-     (print-call-chain (current-error-port))
-     (debug:print 0 *default-log-port* " message: "  ((condition-property-accessor 'exn 'message) exn))       
-     (vector #f (vector exn call-chain dat))) ;; return some stuff for debug if an exception happens
+;;   (handle-exceptions
+;;    exn
+;;    (let ((call-chain (get-call-chain)))
+;;      (debug:print 0 *default-log-port* "WARNING: api:execute-requests received an exception from peer, dat=" dat ", exn=" exn)
+;;      (print-call-chain (current-error-port))
+;;      (debug:print 0 *default-log-port* " message: "  ((condition-property-accessor 'exn 'message) exn))       
+;;      (vector #f (vector exn call-chain dat))) ;; return some stuff for debug if an exception happens
    (cond
     ((not (vector? dat))                    ;; it is an error to not receive a vector
      (vector #f (vector #f "remote must be called with a vector")))
     ((> *api-process-request-count* 200) ;; 20)
      (debug:print 0 *default-log-port* "WARNING: api:execute-requests received an overloaded message.")
@@ -375,11 +375,11 @@
 	     (vector #f res))
            (begin
              #;(common:telemetry-log (conc "api-out:"(->string cmd))
                                    payload: `((params . ,params)
                                               (ok-res . #f)))
-             (vector #t res))))))))
+             (vector #t res))))))) ;; )
 
 ;; http-server  send-response
 ;;                 api:process-request
 ;;                    db:*
 ;;

Index: dbfile.scm
==================================================================
--- dbfile.scm
+++ dbfile.scm
@@ -672,36 +672,36 @@
 	  (db:sync-touched dbstruct runid keys dbinit)
 	  (set! *db-sync-in-progress* #f)
 	  (delete-file* lock-file)
 	  #t)
         (begin
-          (dbfile:print-err "ERROR: could not get lock for " from-db-file " from no-sync-db")
-	  #f
-	  ))))
-
-;; Get a lock from the no-sync-db for the from-db, then delta sync the from-db to the to-db, otherwise return #f
-;;
-(define (db:lock-and-delta-sync-orig no-sync-db dbstruct from-db-file runid keys dbinit)
-  (assert (not *db-sync-in-progress*) "FATAL: db:lock-and-sync called while a sync is in progress.")
-  ;; (dbfile:print-err *default-log-port* "db:lock-and-delta-sync")
-  (let* ((lockdat  (db:no-sync-get-lock-timeout no-sync-db from-db-file 60))
-	 (gotlock  (car lockdat))
-	 (locktime (cdr lockdat)))
-    ;; (debug:print-info 3 *default-log-port* "db:lock-and-delta-sync: got lock?")
-    
-    (if gotlock
-	(begin
-          (dbfile:print-err "INFO: db:lock-and-delta-sync copying db "runid" at "(current-seconds))
-	  (set! *db-sync-in-progress* #t)
-          (db:sync-touched dbstruct runid keys dbinit)
-	  (set! *db-sync-in-progress* #f)
-	  (db:no-sync-del! no-sync-db from-db-file)
-	  #t)
-        (begin
-          (dbfile:print-err "ERROR: could not get lock for " from-db-file " from no-sync-db")
-	  #f
-        ))))
+          (dbfile:print-err "INFO: could not get lock for " from-db-file ", sync likely in progress.")
+	  #f
+	  ))))
+
+;; ;; Get a lock from the no-sync-db for the from-db, then delta sync the from-db to the to-db, otherwise return #f
+;; ;;
+;; (define (db:lock-and-delta-sync-orig no-sync-db dbstruct from-db-file runid keys dbinit)
+;;   (assert (not *db-sync-in-progress*) "FATAL: db:lock-and-sync called while a sync is in progress.")
+;;   ;; (dbfile:print-err *default-log-port* "db:lock-and-delta-sync")
+;;   (let* ((lockdat  (db:no-sync-get-lock-timeout no-sync-db from-db-file 60))
+;; 	 (gotlock  (car lockdat))
+;; 	 (locktime (cdr lockdat)))
+;;     ;; (debug:print-info 3 *default-log-port* "db:lock-and-delta-sync: got lock?")
+;;     
+;;     (if gotlock
+;; 	(begin
+;;           (dbfile:print-err "INFO: db:lock-and-delta-sync copying db "runid" at "(current-seconds))
+;; 	  (set! *db-sync-in-progress* #t)
+;;           (db:sync-touched dbstruct runid keys dbinit)
+;; 	  (set! *db-sync-in-progress* #f)
+;; 	  (db:no-sync-del! no-sync-db from-db-file)
+;; 	  #t)
+;;         (begin
+;;           (dbfile:print-err "ERROR: could not get lock for " from-db-file " from no-sync-db")
+;; 	  #f
+;;         ))))
 
 ;; sync run from tmp disk to nfs disk if touched
 ;;
 ;; call with dbinit=db:initialize-main-db
 ;;

Index: rmt.scm
==================================================================
--- rmt.scm
+++ rmt.scm
@@ -376,20 +376,20 @@
 	 (dbstructs-local (db:setup #t))  ;; make-dbr:dbstruct path:  dbdir local: #t)))
 	 (read-only       (not (file-write-access? db-file-path)))
 	 (start           (current-milliseconds))
 	 (resdat          (if (not (and read-only qry-is-write))
 			      (let ((v (api:execute-requests dbstructs-local (vector (symbol->string cmd) params))))
-				(handle-exceptions ;; there has been a long history of receiving strange errors from values returned by the client when things go wrong..
-				 exn               ;;  This is an attempt to detect that situation and recover gracefully
-				 (begin
-				   (debug:print 0 *default-log-port* "ERROR: bad data from server " v " message: "  ((condition-property-accessor 'exn 'message) exn) ", exn=" exn)
-				   (vector #t '())) ;; should always get a vector but if something goes wrong return a dummy
+			;;	(handle-exceptions ;; there has been a long history of receiving strange errors from values returned by the client when things go wrong..
+			;;	 exn               ;;  This is an attempt to detect that situation and recover gracefully
+			;;	 (begin
+			;;	   (debug:print 0 *default-log-port* "ERROR: bad data from server " v " message: "  ((condition-property-accessor 'exn 'message) exn) ", exn=" exn)
+			;;	   (vector #t '())) ;; should always get a vector but if something goes wrong return a dummy
 				 (if (and (vector? v)
 					  (> (vector-length v) 1))
 				     (let ((newvec (vector (vector-ref v 0)(vector-ref v 1))))
 				       newvec)           ;; by copying the vector while inside the error handler we should force the detection of a corrupted record
-				     (vector #t '()))))  ;; we could also check that the returned types are valid
+				     (vector #t '()))) ;; )  ;; we could also check that the returned types are valid
 			      (vector #t '())))
 	 (success        (vector-ref resdat 0))
 	 (res            (vector-ref resdat 1))
 	 (duration       (- (current-milliseconds) start)))
     (if (and read-only qry-is-write)
@@ -413,16 +413,16 @@
                 (mutex-unlock! *db-multi-sync-mutex*)))))
     res))
 
 (define (rmt:send-receive-no-auto-client-setup connection-info cmd run-id params)
   (let* ((run-id   (if run-id run-id 0))
-	 (res  	   (handle-exceptions
-		       exn
-		     (begin
-		       (print "transport failed. exn=" exn)
-		       #f)
-		     (http-transport:client-api-send-receive run-id connection-info cmd params))))
+	 (res  	   ;; (handle-exceptions
+		   ;;     exn
+		   ;;   (begin
+		   ;;     (print "transport failed. exn=" exn)
+		   ;;     #f)
+		     (http-transport:client-api-send-receive run-id connection-info cmd params))) ;; )
     (if (and res (vector-ref res 0))
 	(vector-ref res 1) ;;; YES!! THIS IS CORRECT!! CHANGE IT HERE, THEN CHANGE rmt:send-receive ALSO!!!
 	#f)))
 
 ;;======================================================================