From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Fri, 15 Sep 2017 00:07:40 +0000 (-0700)
Subject: devops: log procedure does not coerce to string.
X-Git-Tag: mit-scheme-pucked-9.2.12~60
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fa1bda0d0483294eab5cd477c3d7e82bc0b2b5df;p=mit-scheme.git

devops: log procedure does not coerce to string.
---

diff --git a/src/devops/devops.scm b/src/devops/devops.scm
index 4c75d7f16..33b33ed85 100644
--- 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")))))