Index: rmtmod.scm
==================================================================
--- rmtmod.scm
+++ rmtmod.scm
@@ -221,11 +221,11 @@
 	;; Below we will find or create and connect to main
 	(let* ((dbname         (db:run-id->dbname #f))
 	       (the-srv        (rmt:find-main-server apath dbname))
 	       (start-main-srv (lambda () ;; call IF there is no the-srv found
 				 (api:run-server-process apath dbname)
-				 (thread-sleep! 4)
+				 (thread-sleep! 1)
 				 (rmt:open-main-connection remdat apath) ;; TODO: Add limit to number of tries
 				 )))
 	  (if (not the-srv) ;; have server, try connecting to it
 	      (start-main-srv)
 	      (let* ((srv-addr (server-address the-srv)) ;; need serv