Index: client.scm
==================================================================
--- client.scm
+++ client.scm
@@ -85,11 +85,11 @@
 		    (exit 1)))
 	      (begin
 		(hash-table-set! *runremote* run-id hostinfo)
 		(debug:print-info 11 "CLIENT SETUP, hostinfo=" hostinfo)
 		(debug:print-info 11 "Using transport type of " transport (if hostinfo (conc " to connect to " hostinfo) ""))
-		(client:start run-id transport server-info)))))))
+		(client:start run-id transport hostinfo)))))))
 
 (define (client:start run-id transport server-info)
   (case transport
     ;; ((fs)(if (not *megatest-db*)(set! *megatest-db* (open-db))))
     ((http)

Index: tasks.scm
==================================================================
--- tasks.scm
+++ tasks.scm
@@ -220,13 +220,14 @@
 	(best #f))
     (sqlite3:for-each-row
      (lambda (id interface port pubport transport pid hostname)
        (set! res (vector id interface port pubport transport pid hostname)))
      mdb
+     ;; removed:
+     ;; strftime('%s','now')-heartbeat < 10 AND 
      "SELECT id,interface,port,pubport,transport,pid,hostname FROM servers
-          WHERE strftime('%s','now')-heartbeat < 10 
-          AND mt_version=? AND run_id=? AND state='running'
+          WHERE mt_version=? AND run_id=? AND state='running'
           ORDER BY start_time DESC LIMIT 1;" (common:version-signature) run-id)
     res))
 
 ;; (define (tasks:get-all-servers mdb)
 ;;   (let ((res  '()))