Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -3249,14 +3249,14 @@
 				      (reverse
 				       (sqlite3:fold-row
 					(lambda (res t var val)
 					  (cons (vector t var val) res))
 					'() db all-dat-qrystr)))
-		     (let ((zeropt (handle-exceptions
-				    exn
-				    #f
-				    (sqlite3:first-row db all-dat-qrystr))))
+		     (let ((zeropt (condition-case 
+				       (sqlite3:first-row db all-dat-qrystr)
+				     (exn (busy)(db:generic-error-printout exn "ERROR: database " dbdef
+                                     " is locked. Try copying to another location, remove original and copy back.")))))
 		       (if zeropt ;; NOTE: Add zeropt to the beginning of the list as the list was reversed above.
 			   (hash-table-set! res-ht
 					    fieldname
 					    (cons
 					     (apply vector tstart (cdr zeropt))						    

Index: dbmod.scm
==================================================================
--- dbmod.scm
+++ dbmod.scm
@@ -1055,11 +1055,15 @@
 	(start-time  (current-milliseconds))
 	(tot-count   0))
 
     (for-each ;; table
      (lambda (tabledat)
-       (db:sync-one-table fromdb todb tabledat last-update numrecs))
+       (condition-case
+	   (db:sync-one-table fromdb todb tabledat last-update numrecs)
+	 ;; if db is busy, take a break and try one more time
+	 (exn (busy)(thread-sleep! 0.5)
+	      (db:sync-one-table fromdb todb tabledat last-update numrecs))))
      tbls)
 
     (let* ((runtime      (- (current-milliseconds) start-time))
 	   (should-print (or (debug:debug-mode 12)
 			     (common:low-noise-print 120 "db sync" (> runtime 500))))) ;; low and high sync times treated as separate.
@@ -2414,18 +2418,17 @@
   (if (or (null? header) (not row))
       #f
       (let loop ((hed (car header))
                  (tal (cdr header))
                  (n   0))
-        (if (equal? hed field)
-            (handle-exceptions
-             exn
-             (begin
-               (debug:print 0 *default-log-port* "WARNING: attempt to read non-existant field, row="
-			    row " header=" header " field=" field ", exn=" exn)
-               #f)
-             (vector-ref row n))
+        (if (equal? hed field);;(condition-case (vector-ref #(1 2 3) 3)(exn (bounds)(print "out of bounds")))
+            (condition-case
+		(vector-ref row n)
+	      (exn (bounds)
+		   (debug:print 0 *default-log-port* "WARNING: attempt to read non-existant field, row="
+				row " header=" header " field=" field ", exn=" exn)
+		   #f))
 	    (if (null? tal) #f (loop (car tal)(cdr tal)(+ n 1)))))))
 
 ;; Accessors for the header/data structure
 ;; get rows and header from 
 (define (db:get-header vec)(vector-ref vec 0))
@@ -4847,14 +4850,11 @@
                                exn
                                (begin
                                   (debug:print 0 *default-log-port*
                                   "WARNING: itemmap has problem \"" itemmap "\", patt: " patt ", repl: " repl ", exn=" exn)
                                  res)
-                              (string-substitute patt repl res))
-
-
-                              )
+                              (string-substitute patt repl res)))
 			    (begin
                               (debug:print 0 *default-log-port*
                                "WARNING: itemmap has problem \"" itemmap "\", patt: " patt ", repl: " repl)
 			      res))))
 	    (if (null? tal)

Index: debugprint.scm
==================================================================
--- debugprint.scm
+++ debugprint.scm
@@ -126,11 +126,11 @@
       (with-output-to-port (or e (current-error-port))
 	(lambda ()
 	  ;; (if *logging*
 	      ;; (db:log-event (apply conc params))
 	  (apply print (debug:timestamp) params)
-	  (debug:handle-remote-logging params)
+	  ;; (debug:handle-remote-logging params)
 	  )))
   #t ;; only here to make remote stuff happy. It'd be nice to fix that ...
   )
 
 (define (debug:print-error n e . params)
@@ -137,11 +137,11 @@
   ;; normal print
   (if (debug:debug-mode n)
       (with-output-to-port (if (port? e) e (current-error-port))
 	(lambda ()
 	  (apply print "ERROR: " (debug:timestamp) params)
-	  (debug:handle-remote-logging (cons "ERROR: " params))
+	  ;; (debug:handle-remote-logging (cons "ERROR: " params))
 	  )))
   ;; pass important messages to stderr
   (if (and (eq? n 0)(not (eq? e (current-error-port)))) 
       (with-output-to-port (current-error-port)
 	(lambda ()
@@ -151,16 +151,16 @@
 (define (debug:print-info n e . params)
   (if (debug:debug-mode n)
       (with-output-to-port (if (port? e) e (current-error-port))
 	(lambda ()
 	  (apply print "INFO: (" n ") "(debug:timestamp) params) ;; res)
-	  (debug:handle-remote-logging (cons "INFO: " params))
+	  ;; (debug:handle-remote-logging (cons "INFO: " params))
 	  ))))
 
 (define (debug:print-warn n e . params)
   (if (debug:debug-mode n)
       (with-output-to-port (if (port? e) e (current-error-port))
 	(lambda ()
 	  (apply print "WARN: (" n ") " (debug:timestamp) params) ;; res)
-	  (debug:handle-remote-logging (cons "WARN: " params))
+	  ;; (debug:handle-remote-logging (cons "WARN: " params))
 	  ))))
 )

Index: rmtmod.scm
==================================================================
--- rmtmod.scm
+++ rmtmod.scm
@@ -1259,10 +1259,13 @@
 
 ;;======================================================================
 ;; S E R V E R
 ;; ======================================================================
 
+(define (rmt:get-servers-info apath)
+  (rmt:send-receive 'get-servers-info #f `(,apath)))
+
 ;; (define (http-get-function fnkey)
 ;;   (hash-table-ref/default *http-functions* fnkey (lambda () "nothing here yet")))
 
 ;;======================================================================
 ;; C L I E N T S