@@ -400,10 +400,14 @@
 ;;
 (define (http-transport:launch run-id)
   (set! *run-id*   run-id)
   (if (args:get-arg "-daemonize")
       (daemon:ize))
+  (if (server:check-if-running run-id)
+      (begin
+	(debug:print 0 "INFO: Server for run-id " run-id " already running")
+	(exit 0)))
   (let ((server-id (open-run-close tasks:server-lock-slot tasks:open-db run-id)))
     (if (not server-id)
 	(begin
 	  ;; since we didn't get the server lock we are going to clean up and bail out
 	  (debug:print-info 2 "INFO: server pid=" (current-process-id) ", hostname=" (get-host-name) " not starting due to other candidates ahead in start queue")