From 6c91607d9b0f8a59e1d1fd9eecaa60c528c9649b Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 29 Mar 2016 01:09:07 -0400
Subject: [PATCH] bugfix

---
 runtime.c | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/runtime.c b/runtime.c
index 10dc10f6..cd6cba1c 100644
--- a/runtime.c
+++ b/runtime.c
@@ -1520,8 +1520,11 @@ object Cyc_utf82string(void *data, object cont, object bv, object start, object
 
   len = e - s;
   {
-    make_string_with_len(str, &(((bytevector)bv)->data)[s], len);
-    return_closcall1(data, cont, &str);
+    make_string_noalloc(st, NULL, len);
+    st.str = alloca(sizeof(char) * (len + 1));
+    memcpy(st.str, &buf[s], len);
+    st.str[len] = '\0';
+    return_closcall1(data, cont, &st);
   }
 }