@@ -255,12 +255,13 @@
 		       (begin
 			 (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* ((dly  (if (number? result) result 0.1)))
-		  (debug:print 0 *default-log-port* "WARNING: server for "dbfname" is busy, will try again in "dly" seconds.")
+		(let* ((raw-dly  (if (number? result) result 0.1))
+		       (dly      (* 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.")
 		(tt:backoff-incr (tt-conn-host conn)(tt-conn-port conn))