@@ -41,16 +41,17 @@
   (let* ((run-id  (if rid rid 0))
 	 (connection-info (let ((cinfo (hash-table-ref/default *runremote* run-id #f)))
 			    (if cinfo
 				cinfo
 				(let loop ((numtries 100))
-				  (thread-sleep! 1)
 				  (let ((res (client:setup run-id)))
 				    (if res 
 					(hash-table-ref/default *runremote* run-id #f) ;; client:setup filled this in (hopefully)
 					(if (> numtries 0)
-					    (loop (- numtries 1))
+					    (begin
+					      (thread-sleep! 10)
+					      (loop (- numtries 1)))
 					    (begin
 					      (debug:print 0 "ERROR: 100 tries and no server, giving up")
 					      (exit 1)))))))))
 	 (jparams         (db:obj->string params))
 	 (res (http-transport:client-api-send-receive run-id connection-info cmd jparams)))