@@ -52,11 +52,11 @@
   (let ((transport-type
          (cond
           ((string? transport-type-raw) (string->symbol transport-type-raw))
           (else transport-type-raw))))
          
-    (BB> "server:launch fired for run-id="run-id" transport-type="transport-type)
+    ;;(BB> "server:launch fired for run-id="run-id" transport-type="transport-type)
 
     (case transport-type
       ((http)(http-transport:launch run-id))
       ;;((nmsg)(nmsg-transport:launch run-id))
       ((rpc)  (rpc-transport:launch run-id))
@@ -193,10 +193,22 @@
 	     dotfile
 	   (lambda ()
 	     (read-line)))
 	 #f))))
 
+
+(define (server:dotserver-starting)
+  (with-output-to-file
+      (conc *toppath* "/.starting-server")
+    (lambda ()
+      (print (current-process-id) " on " (get-host-name)))))
+
+(define (server:dotserver-starting-remove)
+  (delete-file* (conc *toppath* "/.starting-server")))
+  
+
+  
 ;; write a .server file in *toppath* with hostport
 ;; return #t on success, #f otherwise
 ;;
 (define (server:write-dotserver areapath hostport)
   (let ((lock-file   (conc areapath "/.server.lock"))
@@ -212,15 +224,15 @@
 	  (debug:print-info 0 *default-log-port* "server file " server-file " for " hostport " created")
 	  (common:simple-file-release-lock lock-file)
 	  res)
 	#f)))
 
-(define (server:remove-dotserver-file areapath hostport)
+(define (server:remove-dotserver-file areapath hostport #!key (force #f))
   (let ((dotserver   (server:read-dotserver areapath))
 	(server-file (conc areapath "/.server"))
 	(lock-file   (conc areapath "/.server.lock")))
-    (if (and dotserver (string-match (conc ".*:" hostport "$") dotserver)) ;; port matches, good enough info to decide to remove the file
+    (if (or force (and dotserver (string-match (conc ".*:" hostport "$") dotserver))) ;; port matches, good enough info to decide to remove the file
 	(if (common:simple-file-lock lock-file)
 	    (begin
 	      (handle-exceptions
 	       exn
 	       #f