From eefd86a6e67babba7d4c4eaa0fc80bd91b992f52 Mon Sep 17 00:00:00 2001
From: Taylor R Campbell <campbell@mumble.net>
Date: Wed, 29 May 2019 16:13:50 +0000
Subject: [PATCH] Use the Edwin-private %string-append.

No need to pay the cost of wide stuff with string-append*.
---
 src/edwin/string.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/edwin/string.scm b/src/edwin/string.scm
index 90b21b511..afb194728 100644
--- a/src/edwin/string.scm
+++ b/src/edwin/string.scm
@@ -589,7 +589,7 @@ USA.
 
 (define (decorated-string-append prefix infix suffix strings)
   (let ((infix (string-append suffix infix prefix)))
-    (string-append*
+    (%string-append
      (if (pair? strings)
 	 (cons* prefix
 		(car strings)
-- 
2.25.1