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)