From 0ca396f8fa7fe8f35c7c08b458b8bc67194bf532 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Fri, 20 Oct 2017 16:29:47 +0000
Subject: [PATCH] Add new string_type field

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

diff --git a/gc.c b/gc.c
index 6fdf7f82..0c0e57f4 100644
--- a/gc.c
+++ b/gc.c
@@ -451,6 +451,7 @@ char *gc_copy_obj(object dest, char *obj, gc_thread_data * thd)
       memcpy(s, string_str(obj), string_len(obj) + 1);
       mark(hp) = thd->gc_alloc_color;
       type_of(hp) = string_tag;
+      string_num_cp(hp) = string_num_cp(obj);
       string_len(hp) = string_len(obj);
       string_str(hp) = s;
       return (char *)hp;