@@ -885,15 +885,15 @@
 	(if (not (setup-for-run))
 	    (begin 
 	      (debug:print 0 "Failed to setup, exiting")
 	      (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) ;; This is a duplicate startup!!!??? BUG?
-		))
+	    (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) ;; 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)))