@@ -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