@@ -256,11 +256,11 @@
 			 (debug:print 0 *default-log-port* "Server is loaded, delaying "delay-wait" seconds")
 			 (thread-sleep! delay-wait)))))
 	     (case status
 	       ((busy) ;; result will be how long the server wants you to delay
 		(let* ((raw-dly  (if (number? result) result 0.1))
-		       (dly      (* raw-dly (/ attemptnum 2))))
+		       (dly      (+ raw-dly (/ attemptnum 10)))) ;; (* raw-dly (/ attemptnum 2))))
 		  (debug:print 0 *default-log-port* "WARNING: server for "dbfname" is busy, cmd is "cmd", will try again in "dly" seconds. This is attempt "(- attemptnum 1))
 		  (thread-sleep! dly)
 		  (tt:handler  ttdat cmd run-id params (+ attemptnum 1) readonly-mode dbfname testsuite mtexe server-start-proc)))
 	       ((loaded)
 		(debug:print 0 *default-log-port* "WARNING: server for "dbfname" is loaded, slowing queries.")