@@ -114,11 +114,11 @@
 ;; kind start up of servers, wait 40 seconds before allowing another server for a given
 ;; run-id to be launched
 (define (server:kind-run run-id)
   (let ((last-run-time (hash-table-ref/default *server-kind-run* run-id #f)))
     (if (or (not last-run-time)
-	    (> (- (current-seconds) last-run-time) 40))
+	    (> (- (current-seconds) last-run-time) 30))
 	(begin
 	  (server:run run-id)
 	  (hash-table-set! *server-kind-run* run-id (current-seconds))))))
 
 ;; The generic run a server command. Dispatches the call to server 0 if run-id != 0