From ec6140b3a4d304ca8d4034138f129b2d900e41d9 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Fri, 20 Nov 2015 02:50:46 -0500
Subject: [PATCH] Ensure stack objects are properly marked

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

diff --git a/runtime.c b/runtime.c
index f938944e..f65df1c7 100644
--- a/runtime.c
+++ b/runtime.c
@@ -939,10 +939,12 @@ common_type Cyc_string2number(void *data, object str){
         n = atof(((string_type *) str)->str);
 
         if (ceilf(n) == n) {
+            result.integer_t.hdr.mark = gc_color_red;
             result.integer_t.tag = integer_tag;
             result.integer_t.value = (int)n;
         }
         else {
+            result.double_t.hdr.mark = gc_color_red;
             result.double_t.tag = double_tag;
             result.double_t.value = n;
         }