Index: megatest-version.scm
==================================================================
--- megatest-version.scm
+++ megatest-version.scm
@@ -1,7 +1,7 @@
 ;; Always use two digit decimal
 ;; 1.01, 1.02...1.10,1.11 ... 1.99,2.00..
 
 (declare (unit megatest-version))
 
-(define megatest-version 1.52)
+(define megatest-version 1.5201)
 

Index: server.scm
==================================================================
--- server.scm
+++ server.scm
@@ -183,13 +183,13 @@
 	;; NOTE: Get rid of this mechanism! It really is not needed...
 	(open-run-close tasks:server-update-heartbeat tasks:open-db (car server-info))
       
 	;; (if ;; (or (> numrunning 0) ;; stay alive for two days after last access
 	(if (> (+ *last-db-access* 
-		  ;; (* 48 60 60)    ;; 48 hrs
+		  (* 50 60 60)    ;; 48 hrs
 		  ;; 60              ;; one minute
-		  (* 60 60)       ;; one hour
+		  ;; (* 60 60)       ;; one hour
 		  )
 	       (current-seconds))
 	    (begin
 	      (debug:print-info 2 "Server continuing, seconds since last db access: " (- (current-seconds) *last-db-access*))
 	      (loop 0))