devops: log procedure does not coerce to string.

diff --git a/src/devops/devops.scm b/src/devops/devops.scm
index 4c75d7f169ad15e160c2c00e379bf46c71cffe87..33b33ed85c601fe4a589daa0068a4a577f1c7e50 100644 (file)
--- a/src/devops/devops.scm
+++ b/src/devops/devops.scm
@@ -509,7 +509,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
     (cond ((> min 60)
           (log "    No progress in over an hour!\n"))
          ((> min 10)
-          (log "    No progress in "min" minutes.\n"))
+          (log "    No progress in "(number->string min 10)" minutes.\n"))
          (else
           (log "    Working...\n")))))