Index: http-transport.scm
==================================================================
--- http-transport.scm
+++ http-transport.scm
@@ -144,12 +144,12 @@
 
 	     ;; get_next_port goes here
 	     (http-transport:try-start-server run-id
 					      ipaddrstr
 					      (portlogger:open-run-close 
-					       (lambda (db server-id)
-						 (portlogger:find-port db area-dat server-id))
+					       (lambda (db)
+						 (portlogger:find-port db area-dat))
 					       area-dat)
 					      server-id
 					      area-dat))
 	   (begin
 	     (tasks:server-force-clean-run-record (db:delay-if-busy tdbdat area-dat) run-id ipaddrstr portnum " http-transport:try-start-server")
@@ -417,11 +417,11 @@
 	  (let ((start-time (current-milliseconds))
 		(sync-time  #f)
 		(rem-time   #f))
 	    ;; inmemdb is a dbstruct
 	    (condition-case
-	     (db:sync-touched *inmemdb* *run-id* force-sync: #t)
+	     (db:sync-touched *inmemdb* area-dat *run-id* force-sync: #t)
 	     ((sync-failed)(cond
 			    ((> bad-sync-count 10) ;; time to give up
 			     (http-transport:server-shutdown server-id port area-dat))
 			    (else ;; (> bad-sync-count 0)  ;; we've had a fail or two, delay and loop
 			     (thread-sleep! 5)
@@ -501,11 +501,11 @@
 (define (http-transport:server-shutdown server-id port area-dat)
   (let ((tdbdat (tasks:open-db area-dat)))
     (debug:print-info 0 "Starting to shutdown the server.")
     ;; need to delete only *my* server entry (future use)
     (set! *time-to-exit* #t)
-    (if *inmemdb* (db:sync-touched *inmemdb* *run-id* force-sync: #t))
+    (if *inmemdb* (db:sync-touched *inmemdb* area-dat *run-id* force-sync: #t))
     ;;
     ;; start_shutdown
     ;;
     (tasks:server-set-state! (db:delay-if-busy tdbdat area-dat) server-id "shutting-down")
     (portlogger:open-run-close 

Index: server.scm
==================================================================
--- server.scm
+++ server.scm
@@ -237,14 +237,14 @@
 (define (server:login toppath area-dat)
   (lambda (toppath)
     (set! *last-db-access* (current-seconds))
     (if (equal? (megatest:area-path area-dat) toppath)
 	(begin
-	  ;; (debug:print-info 2 "login successful")
+	  (debug:print-info 2 "login successful")
 	  #t)
 	(begin
-	  ;; (debug:print-info 2 "login failed")
+	  (debug:print-info 2 "login failed")
 	  #f))))
 
 (define (server:get-timeout area-dat)
   (let ((tmo (configf:lookup  (megatest:area-configdat area-dat) "server" "timeout")))
     (if (and (string? tmo)