Index: server.scm
==================================================================
--- server.scm
+++ server.scm
@@ -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))

Index: tasks.scm
==================================================================
--- tasks.scm
+++ tasks.scm
@@ -22,19 +22,19 @@
 ;; Tasks db
 ;;======================================================================
 
 (define (tasks:open-db)
   (let* ((dbpath  (conc *toppath* "/monitor.db"))
-	 (exists  (if (file-exists? dbpath)
-		      ;; BUGGISHNESS: Remove this code in six months. Today is 11/13/2012
-		      (if (< (file-change-time dbpath) 1352851396.0)
-			  (begin
-			    (debug:print 0 "NOTE: removing old db file " dbpath)
-			    (delete-file dbpath)
-			    #f)
-			  #t)
-		      #f))
+	 (exists  (file-exists? dbpath))
+	 ;; 	      ;; BUGGISHNESS: Remove this code in six months. Today is 11/13/2012
+	 ;;              (if (< (file-change-time dbpath) 1352851396.0)
+	 ;;        	  (begin
+	 ;;        	    (debug:print 0 "NOTE: removing old db file " dbpath)
+	 ;;        	    (delete-file dbpath)
+	 ;;        	    #f)
+	 ;;        	  #t)
+	 ;;              #f))
 	 (mdb     (sqlite3:open-database dbpath)) ;; (never-give-up-open-db dbpath))
 	 (handler (make-busy-timeout 36000)))
     (sqlite3:set-busy-handler! mdb handler)
     (sqlite3:execute mdb (conc "PRAGMA synchronous = 0;"))
     (if (not exists)