@@ -493,11 +493,11 @@
 	    ((best-five)(names->dats (best-five)))
 	    ((all-valid)(names->dats all-valid))
 	    ((best)     (let* ((best-five (best-five))
 			       (len       (length best-five)))
 			  (hash-table-ref serversdat (list-ref best-five (random len)))))
-			  
+	    ((count)(length all-valid))
 	    (else
 	     (debug:print 0 *default-log-port* "ERROR: invalid command "mode)
 	     #f)))
 	(begin
 	  (server:run areapath)
@@ -516,11 +516,12 @@
 ;;
 (define (server:kind-run areapath)
   ;; look for $MT_RUN_AREA_HOME/logs/server-start-last
   ;; and wait for it to be at least <server idletime> seconds old
   ;; (server:wait-for-server-start-last-flag areapath)
-  (server:run areapath)
+  (if (< (server:choose-server areapath 'count) 10)
+      (server:run areapath))
   #;(if (not (server:check-if-running areapath)) ;; why try if there is already a server running?
       (let* ((lock-file    (conc areapath "/logs/server-start.lock")))
 	(let* ((start-flag (conc areapath "/logs/server-start-last")))
 	  (common:simple-file-lock-and-wait lock-file expire-time: 25)
 	  (debug:print-info  2 *default-log-port* "server:kind-run: touching " start-flag)