From c9b15e98794a1bbd92c21051716b8cd654fbff6f Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 19 Oct 2008 15:41:04 -0500
Subject: [PATCH] fix logging

---
 basis/logging/server/server.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/logging/server/server.factor b/basis/logging/server/server.factor
index d13ae616be..47656e8655 100644
--- a/basis/logging/server/server.factor
+++ b/basis/logging/server/server.factor
@@ -83,7 +83,7 @@ SYMBOL: log-files
 
 : (rotate-logs) ( -- )
     (close-logs)
-    log-root directory [ drop rotate-log ] assoc-each ;
+    log-root directory-files [ rotate-log ] each ;
 
 : log-server-loop ( -- )
     receive unclip {