Index: server.scm
==================================================================
--- server.scm
+++ server.scm
@@ -123,11 +123,11 @@
     (directory-fold 
      (lambda (file rem)
        (if (and (string-match "^.*.log" file)
 		(> (file-size (conc "logs/" file)) 200000))
 	   (let ((gzfile (conc "logs/" file ".gz")))
-	     (if (file-exists gzfile)
+	     (if (file-exists? gzfile)
 		 (begin
 		   (debug:print-info 0 "removing " gzfile)
 		   (delete-file gzfile)))
 	     (debug:print-info 0 "compressing " file)
 	     (system (conc "gzip logs/" file)))))