Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -1673,11 +1673,11 @@
 
 ;; 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))
-  (let* ((fullpath (conc *toppath* "/logs/" key "-" dtype ".log")))
+  (let* ((fullpath (conc *toppath* "/.sysdata/" key "-" dtype ".log")))
     (if (and (file-exists? fullpath)
 	     (file-read-access? fullpath))
 	(handle-exceptions
 	 exn
 	 #f
@@ -1691,11 +1691,13 @@
 	(begin
 	  (debug:print 2 *default-log-port* "not reading file " fullpath)
 	  #f))))
  
 (define (common:write-cached-info key dtype dat)
-  (let* ((fullpath (conc *toppath* "/logs/" key "-" dtype ".log")))
+  (let* ((fulldir  (conc *toppath* "/.sysdata"))
+	 (fullpath (conc fulldir "/" key "-" dtype ".log")))
+    (if (not (file-exists? fulldir))(create-directory fullpath #t))
     (handle-exceptions
      exn
      #f
      (with-output-to-file fullpath (lambda ()(pp dat))))))