Fix typo.

diff --git a/src/runtime/string.scm b/src/runtime/string.scm
index 442474c747d2a3fa80658fb818759a8529b5c363..dbe385ed6515b9410fd68d1aef26ba4a7f689ad2 100644 (file)
--- a/src/runtime/string.scm
+++ b/src/runtime/string.scm
@@ -522,7 +522,7 @@ USA.
        (string-set! string i char)))))
 \f
 (define (decorated-string-append prefix infix suffix strings)
-  ((string-joiner* prefix infix suffix) strings))
+  ((string-joiner* infix prefix suffix) strings))
 
 (define (string-joiner infix #!optional prefix suffix)
   (let ((joiner (string-joiner* prefix infix suffix)))