Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -1684,11 +1684,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 2 *default-log-port* "file " fullpath " is too old (" real-age" seconds)to trust, skipping reading it")
+		 (debug:print 1 *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))))
  
@@ -1930,11 +1930,11 @@
          (hh     (if hh-dat (car hh-dat) #f)))
     (common:wait-for-normalized-load maxload msg hh)))
 
 (define (common:get-num-cpus remote-host)
   (let* ((actual-host (or remote-host (get-host-name))))
-    (or (common:get-cached-info actual-host "num-cpus" age: 86400) ;; hosts had better not be changing the number of cpus too often!
+    (or (common:get-cached-info actual-host "num-cpus" age: (+ 2592000 (random 3600))) ;; hosts had better not be changing the number of cpus too often!
 	(let* ((proc   (lambda ()
 			 (let loop ((numcpu 0)
 				    (inl    (read-line)))
 			   (if (eof-object? inl)
 			       (begin