@@ -252,19 +252,19 @@
 			     (if (not ok)(debug:print 0 *default-log-port* "ERROR: "cmd", run-id "run-id", not correct for dbfname "(dbr:dbstruct-dbfname dbstruct)))
 			     (assert ok "FATAL: database file and run-id not aligned.")))))
 		(ttdat   *server-info*)
 		(server-state (tt-state ttdat))
 		(status  (cond
-			  ;; ((> newcount 600) 'busy)
+			  ((> newcount 10) 'busy)
 			  ((> newcount 5) 'loaded) ;; this gets transmitted to the client which calls tt:backoff-incr to slow stuff down.
 			  (else 'ok)))
 		(errmsg  (case status
 			   ((busy)   (conc "Server overloaded, "newcount" threads in flight"))
 			   ((loaded) (conc "Server loaded, "newcount" threads in flight"))
 			   (else     #f)))
 		(result  (case status
-			   ((busy)  (- newcount 29)) ;; call back in as many seconds
+			   ((busy)  15) ;; (- newcount 29)) ;; call back in as many seconds
 			   ((loaded)
 ;; 			    (if (eq? (rmt:transport-mode) 'tcp)
 ;; 				(thread-sleep! 0.5))
 			    (normal-proc cmd run-id params))
 			   (else