Index: server.scm
==================================================================
--- server.scm
+++ server.scm
@@ -122,17 +122,17 @@
     ;;                 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))
-	   (let ((gzfile (conc file ".gz")))
+	   (let ((gzfile (conc "logs/" file ".gz")))
 	     (if (file-exists gzfile)
 		 (begin
 		   (debug:print-info 0 "removing " gzfile)
 		   (delete-file gzfile)))
 	     (debug:print-info 0 "compressing " file)
-	     (system (conc "gzip " file)))))
+	     (system (conc "gzip logs/" file)))))
      '()
      "logs")
     
     ;; host.domain.tld match host?
     (if (and target-host