Index: tcp-transportmod.scm
==================================================================
--- tcp-transportmod.scm
+++ tcp-transportmod.scm
@@ -1144,12 +1144,14 @@
 ;;   if .journal
 ;;      update stats +1 +1
 ;;      update stats +1  0
 ;;
 (define (tt:write-load-tracking dbdir)
-  (directory-fold
-   dbdir 
-   (lambda (res fname)
-     (cons fname res))
-   '()))
+  (let* ((cs  (current-seconds))
+	 (key (inexact->exact (quotient cs 10))))
+    (directory-fold
+     dbdir 
+     (lambda (res fname)
+       (cons fname res))
+     '())))
 
 )