Index: client.scm
==================================================================
--- client.scm
+++ client.scm
@@ -55,12 +55,11 @@
 ;;
 ;; lookup_server, need to remove *runremote* stuff
 ;;
 (define (client:setup run-id #!key (remaining-tries 100) (failed-connects 0))
   (debug:print-info 2 "client:setup remaining-tries=" remaining-tries)
-  (let* ((tdbdat (tasks:open-db))
-	 (tdb    (db:dbdat-get-db tdbdat)))
+  (let* ((tdbdat (tasks:open-db)))
     (if (<= remaining-tries 0)
 	(begin
 	  (debug:print 0 "ERROR: failed to start or connect to server for run-id " run-id)
 	  (exit 1))
 	(let ((host-info (hash-table-ref/default *runremote* run-id #f)))
@@ -116,11 +115,10 @@
 		      (let ((num-available (tasks:num-in-available-state (db:dbdat-get-db tdbdat) run-id)))
 			(debug:print-info 0 "client:setup, no server registered, remaining-tries=" remaining-tries " num-available=" num-available)
 			(thread-sleep! 2) 
 			(if (< num-available 2)
 			    (begin
-			      ;; (open-run-close tasks:server-clean-out-old-records-for-run-id tasks:open-db run-id " client:setup (server-dat=#f)")
 			      (server:try-running run-id)))
 			(thread-sleep! 10) ;; give server a little time to start up
 			(client:setup run-id remaining-tries: (- remaining-tries 1)))))))))))
 
 ;; keep this as a function to ease future 

Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -107,11 +107,11 @@
 	 (db    (db:dbdat-get-db dbdat)))
     (db:delay-if-busy dbdat)
     (handle-exceptions
      exn
      (begin
-       (debug:print 0 "ERROR: sqlite3 issue in db:with-db, params=" params " error: " ((condition-property-accessor 'exn 'message) exn))
+       (debug:print 0 "ERROR: sqlite3 issue in db:with-db, dbstruct=" dbstruct ", run-id=" run-id ", proc=" proc ", params=" params " error: " ((condition-property-accessor 'exn 'message) exn))
        (print-call-chain (current-error-port)))
      (let ((res (apply proc db params)))
        (if (vector? dbstruct)(db:done-with dbstruct run-id r/w))
        res))))
 

Index: dcommon.scm
==================================================================
--- dcommon.scm
+++ dcommon.scm
@@ -447,11 +447,10 @@
      ;; (iup:label "Run statistics"  #:expand "HORIZONTAL")
      stats-matrix)))
 
 (define (dcommon:servers-table)
   (let* ((tdbdat         (tasks:open-db))
-	 (tdb            (db:dbdat-get-db tdbdat))
 	 (colnum         0)
 	 (rownum         0)
 	 (servers-matrix (iup:matrix #:expand "YES"
 				     #:numcol 7
 				     #:numcol-visible 7