Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -491,11 +491,11 @@
 	  ;; (print-call-chain (current-error-port)) ;; 
 	  )
 	(let* ((fullname  (conc "logs/" file))
 	       (mod-time  (file-modification-time fullname))
 	       (file-age  (- (current-seconds) mod-time))
-	       (file-old  (> age (* 48 60 60)))
+	       (file-old  (> file-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-old
 		       file-big)
@@ -512,11 +512,12 @@
 		(system (conc "gzip " fullname))
 		(inc-stat "gzipped")
 		(hash-table-set! all-files (conc file ".gz") file-age)  ;; add the .gz file and remove the base file
 		(hash-table-delete! all-files file)
 		)
-	      (if (> file-age (* (string->number (or (configf:lookup *configdat* "setup" "log-expire-days") "30")) 24 3600))
+	      (if (and (> file-age (* (string->number (or (configf:lookup *configdat* "setup" "log-expire-days") "30")) 24 3600))
+		       (file-exists? fullname)) ;; just in case it was gzipped - will get it next time
 		  (handle-exceptions
 		   exn
 		   #f
 		   (if (directory? fullname)
 		       (begin