@@ -50,10 +50,15 @@
 (define (server:launch run-id)
   (if (server:check-if-running run-id)
       ;; a server is already running
       (exit)
       (http-transport:launch run-id)))
+
+(define (server:launch-no-exit run-id)
+  (if (server:check-if-running run-id)
+      #t ;; if running
+      (http-transport:launch run-id)))
 
 ;;======================================================================
 ;; Q U E U E   M A N A G E M E N T
 ;;======================================================================