@@ -249,12 +249,12 @@
       (set! *api-process-request-count* newcount)
       (set! *db-last-access* (current-seconds))
       (match indat
 	((cmd run-id params meta)
 	 (let* ((status  (cond
-			  ;; ((> newcount 30) 'busy)
-			  ;; ((> newcount 15) 'loaded)
+			  ((> newcount 30) 'busy)
+			  ((> newcount 15) 'loaded)
 			  (else 'ok)))
 		(errmsg  (case status
 			   ((busy)   (conc "Server overloaded, "newcount" threads in flight"))
 			   ((loaded) (conc "Server loaded, "newcount" threads in flight"))
 			   (else     #f)))