Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -1699,11 +1699,11 @@
 ;;     cpu-load))
 
 ;; get values from cached info from dropping file in logs dir
 ;;  e.g. key is host and dtype is normalized-load
 ;;
-(define (common:get-cached-info key dtype #!key (age 5))
+(define (common:get-cached-info key dtype #!key (age 10))
   (if *toppath*
       (let* ((fullpath (conc *toppath* "/.sysdata/" key "-" dtype ".log")))
 	(if (and (file-exists? fullpath)
 		 (file-read-access? fullpath))
 	    (handle-exceptions
@@ -1712,11 +1712,11 @@
 	     (debug:print 2 *default-log-port* "reading file " fullpath)
 	     (let ((real-age (- (current-seconds)(file-change-time fullpath)))) 
 	       (if (< real-age age)
 		   (with-input-from-file fullpath read)
 		   (begin
-		     (debug:print 1 *default-log-port* "file " fullpath " is too old (" real-age" seconds) to trust, skipping reading it")
+		     (debug:print 2 *default-log-port* "file " fullpath " is too old (" real-age" seconds) to trust, skipping reading it")
 		     #f))))
 	    (begin
 	      (debug:print 2 *default-log-port* "not reading file " fullpath)
 	      #f)))
       #f))