From 02014322b736dc451df61d835ac8172c80e93dbd Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 7 Nov 2017 17:47:08 -0500
Subject: [PATCH] Properly count bytes in make-string

---
 scheme/base.sld | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/scheme/base.sld b/scheme/base.sld
index f5451340..5ab42fd0 100644
--- a/scheme/base.sld
+++ b/scheme/base.sld
@@ -958,7 +958,8 @@
           Cyc_rt_raise2(data, \"Expected character buf received\", fill);
         }
         c = obj_obj2char(fill);
-        buflen = Cyc_utf8_encode_char(ch_buf, 5, c);
+        Cyc_utf8_encode_char(ch_buf, 5, c);
+        buflen = strlen(ch_buf);
         num_cp = obj_obj2int(count);
         len = num_cp * buflen;
         if (len >= MAX_STACK_OBJ) {