Index: rmtmod.scm
==================================================================
--- rmtmod.scm
+++ rmtmod.scm
@@ -2126,11 +2126,11 @@
 	      #;(loop (+ count 1) bad-sync-count start-time)
 	      ))
 
 	(debug:print-info 0 *default-log-port* "syncing "*toppath*" "dbname" at "(current-seconds))
 	(db:sync-inmem->disk *dbstruct-db* *toppath* dbname)
-
+	
 	(mutex-unlock! *heartbeat-mutex*)
 	
 	;; when things go wrong we don't want to be doing the various
 	;; queries too often so we strive to run this stuff only every
 	;; four seconds or so.
@@ -2158,19 +2158,12 @@
 	    (if (common:low-noise-print 120 "server continuing")
 		(debug:print-info 0 *default-log-port* "Server continuing, seconds since last db access: " (- (current-seconds) last-access)))
 	    (loop 0 bad-sync-count (current-milliseconds)))
 	   (else
 	    (debug:print-info 0 *default-log-port* "Server timed out. seconds since last db access: " (- (current-seconds) last-access))
-
-
-
-
-	    ;; send self 'quit here
-
-
-
-	    
+	    (open-send-receive-nn (conc iface":"port)      ;; do this here and not in server-shutdown
+				  (sexpr->string 'quit))
 	    (http-transport:server-shutdown port))))))))
 
 (define (http-transport:server-shutdown port)
   (begin
     ;;(BB> "http-transport:server-shutdown called")