Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -476,11 +476,11 @@
   (if (not (directory-exists? "logs"))(create-directory "logs"))
   (directory-fold 
    (lambda (file rem)
      (handle-exceptions
       exn
-      (debug:print-info 0 *default-log-port* "failed to rotate log " file ", probably handled by another process.")
+      (debug:print-info 0 *default-log-port* "unable to rotate log " file ", probably handled by another process.")
       (let* ((fullname (conc "logs/" file))
              (file-age (- (current-seconds)(file-modification-time fullname))))
         (if (or (and (string-match "^.*.log" file)
                      (> (file-size fullname) 200000))
                 (and (string-match "^server-.*.log" file)