@@ -192,13 +192,14 @@
 	;; (if ;; (or (> numrunning 0) ;; stay alive for two days after last access
 	(mutex-lock! *heartbeat-mutex*)
 	(set! last-access *last-db-access*)
 	(mutex-unlock! *heartbeat-mutex*)
 	(if (> (+ last-access
-		  (* 50 60 60)    ;; 48 hrs
+		  ;; (* 50 60 60)    ;; 48 hrs
 		  ;; 60              ;; one minute
 		  ;; (* 60 60)       ;; one hour
+		  (* 45 60)          ;; 45 minutes, until the db deletion bug is fixed.
 		  )
 	       (current-seconds))
 	    (begin
 	      (debug:print-info 2 "Server continuing, seconds since last db access: " (- (current-seconds) last-access))
 	      (loop 0))