From 62b20b56eececfee052c07acacff42aa83a75657 Mon Sep 17 00:00:00 2001
From: "C. Guy Yarvin" <curtis@tlon.io>
Date: Wed, 6 Dec 2017 16:33:24 -0800
Subject: [PATCH] Support long ~$ symbols.

---
 noun/trace.c | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/noun/trace.c b/noun/trace.c
index 66fac3a61b..1464d719ba 100644
--- a/noun/trace.c
+++ b/noun/trace.c
@@ -82,6 +82,12 @@ u3t_slog(u3_noun hod)
 void
 u3t_heck(u3_atom cog)
 {
+  c3_w len_w = u3r_met(3, cog);
+  c3_c* str_c = alloca(1 + len_w);
+
+  u3r_bytes(0, len_w, (c3_y *)str_c, cog);
+  str_c[len_w] = 0;
+
   //  Profile sampling, because it allocates on the home road,
   //  only works on when we're not at home.
   //
@@ -94,7 +100,7 @@ u3t_heck(u3_atom cog)
       if ( 0 == u3R->pro.day ) { 
         u3R->pro.day = u3v_do("doss", 0);
       }
-      u3R->pro.day = u3dc("pi-heck", u3a_take(cog), u3R->pro.day);
+      u3R->pro.day = u3dc("pi-heck", u3i_string(str_c), u3R->pro.day);
     }
     u3R = rod_u;
   }