@@ -865,11 +865,12 @@
 	      (exit 1)))
 	(if (args:get-arg "-server")
 	    (open-run-close server:start db (args:get-arg "-server"))
  	    (if (not (or (args:get-arg "-runall")     ;; runall and runtests are allowed to be servers
  			 (args:get-arg "-runtests")))
-		(server:client-setup)))
+		(server:client-setup) ;; This is a duplicate startup!!!??? BUG?
+		))
 	(set! keys (open-run-close db:get-keys db))
 	;; have enough to process -target or -reqtarg here
 	(if (args:get-arg "-reqtarg")
 	    (let* ((runconfigf (conc  *toppath* "/runconfigs.config")) ;; DO NOT EVALUATE ALL 
 		   (runconfig  (read-config runconfigf #f #f environ-patt: #f)))