From f8b8ef858f5ef5597a42fd4d6ff3650bd66a8487 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 27 Jan 2017 02:54:09 -0800
Subject: [PATCH] Fix typo.

---
 src/runtime/string.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/runtime/string.scm b/src/runtime/string.scm
index 442474c74..dbe385ed6 100644
--- a/src/runtime/string.scm
+++ b/src/runtime/string.scm
@@ -522,7 +522,7 @@ USA.
 	(string-set! string i char)))))
 
 (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)))
-- 
2.25.1