From a5d768a8a40c0a5c50b91b7a7123d2d843028e85 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Fri, 27 Oct 2017 13:17:34 +0000
Subject: [PATCH] Cyc_io_get_output_string - populate num_cp correctly

---
 mstreams.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/mstreams.c b/mstreams.c
index f1b1c50e..939d4047 100644
--- a/mstreams.c
+++ b/mstreams.c
@@ -102,6 +102,7 @@ void Cyc_io_get_output_string(void *data, object cont, object port)
   }
   {
     make_string_with_len(s, p->str_bv_in_mem_buf, p->str_bv_in_mem_buf_len);
+    s.num_cp = Cyc_utf8_count_code_points((uint8_t *)string_str(&s));
     return_closcall1(data, cont, &s);
   }
 }