Index: server.scm
==================================================================
--- server.scm
+++ server.scm
@@ -121,11 +121,11 @@
     ;; Rotate logs, logic: 
     ;;                 if > 500k and older than 1 week, remove previous compressed log and compress this log
     (directory-fold 
      (lambda (file rem)
        (if (and (string-match "^.*.log" file)
-		(> (file-size file) 200000))
+		(> (file-size (conc "logs/" file)) 200000))
 	   (let ((gzfile (conc "logs/" file ".gz")))
 	     (if (file-exists gzfile)
 		 (begin
 		   (debug:print-info 0 "removing " gzfile)
 		   (delete-file gzfile)))