Fix bug: trace was depending on a string being mutable when it wasn't.

diff --git a/src/runtime/advice.scm b/src/runtime/advice.scm
index f71f8c228c819122c9e9baff67d7c38a161c5fe5..656fb8e8eac98d22ebc8368b4d6e9c8d21ca617c 100644 (file)
--- 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