From 2dbeea5e8ceebd7739c7ff1f851864256a4f07d5 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 19 Jan 2018 19:58:07 -0800
Subject: [PATCH] Fix bug: trace was depending on a string being mutable when
 it wasn't.

---
 src/runtime/advice.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/runtime/advice.scm b/src/runtime/advice.scm
index f71f8c228..656fb8e8e 100644
--- a/src/runtime/advice.scm
+++ b/src/runtime/advice.scm
@@ -259,9 +259,9 @@ USA.
 	(write-truncated
 	 (lambda (object width)
 	   (let ((output (write-to-string object width)))
+	     (write-string (cdr output) port)
 	     (if (car output)
-		 (string-fill! (cdr output) #\. (- width 3) width))
-	     (write-string (cdr output) port)))))
+		 (write-string "..." port))))))
     (if (default-object? result)
 	(write-string "[Entering " port)
 	(begin
-- 
2.25.1