Index: tcp-transportmod.scm
==================================================================
--- tcp-transportmod.scm
+++ tcp-transportmod.scm
@@ -541,11 +541,11 @@
 	 (nrun (number-of-processes-running "mtest.*server")))
     (cond
      ((> load 2.0)
       (debug:print 0 *default-log-port* "Normalized load "load" is over the limit of 2.0. Not starting a server.")
       (thread-sleep! 1))
-     ((> nrun 40)
+     ((> nrun 100)
       (debug:print 0 *default-log-port* nrun" servers running on this host, not starting another.")
       (thread-sleep! 1))
      (else
       (if (not (file-exists? (conc areapath"/logs")))
 	      (create-directory (conc areapath"/logs") #t))