Index: api.scm
==================================================================
--- api.scm
+++ api.scm
@@ -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)))

Index: tcp-transportmod.scm
==================================================================
--- tcp-transportmod.scm
+++ tcp-transportmod.scm
@@ -581,11 +581,11 @@
 (define (tt:start-tcp-server ttdat)
   (setup-listener ttdat)
   (let* ((socket   (tt-socket  ttdat))
 	 (handler  (tt-handler ttdat)))
     ((make-tcp-server socket handler)
-     #t ;; yes, send error messages to std-err
+     #f ;; yes, send error messages to std-err
      )))
 
 ;; create a tcp listener and return a populated udat struct with
 ;; my port, address, hostname, pid etc.
 ;; return #f if fail to find a port to allocate.