Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -490,17 +490,19 @@
 	  (debug:print 2 *default-log-port* " message: " ((condition-property-accessor 'exn 'message) exn))
 	  ;; (print-call-chain (current-error-port)) ;; 
 	  )
 	(let* ((fullname  (conc "logs/" file))
 	       (mod-time  (file-modification-time fullname))
-	       (file-age  (- (current-seconds) mod-time)))
+	       (file-age  (- (current-seconds) mod-time))
+	       (file-old  (> age (* 48 60 60)))
+	       (file-big  (> (file-size fullname) 200000)))
 	  (hash-table-set! all-files file mod-time)
 	  (if (or (and (string-match "^.*.log" file)
-		       (> (file-size fullname) 200000))
+		       file-old
+		       file-big)
 		  (and (string-match "^server-.*.log" file)
-		       (> (- (current-seconds) (file-modification-time fullname))
-			  (* 8 60 60))))
+		       file-old))
 	      (let ((gzfile (conc fullname ".gz")))
 		(if (common:file-exists? gzfile)
 		    (begin
 		      (debug:print-info 0 *default-log-port* "removing " gzfile)
 		      (delete-file* gzfile)

Index: megatest-version.scm
==================================================================
--- megatest-version.scm
+++ megatest-version.scm
@@ -18,6 +18,6 @@
 ;; Always use two or four digit decimal
 ;; 1.01, 1.02...1.10,1.11,1.1101 ... 1.99,2.00..
 
 (declare (unit megatest-version))
 
-(define megatest-version 1.6562)
+(define megatest-version 1.6563)