From a47869a43f70b30b731e3d86b9568cdeb38cf2a0 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 7 Oct 2015 22:33:49 -0400
Subject: [PATCH] Fix string_type transport, to avoid wasted space

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

diff --git a/runtime.c b/runtime.c
index 237de598..d5ffa156 100644
--- a/runtime.c
+++ b/runtime.c
@@ -2065,7 +2065,7 @@ char *transport(x, gcgen) char *x; int gcgen;
          dhallocp += len + 1;
        }
        forward(x) = nx; type_of(x) = forward_tag;
-       x = (char *) nx; allocp = ((char *) nx)+sizeof(integer_type);
+       x = (char *) nx; allocp = ((char *) nx)+sizeof(string_type);
        return (char *) nx;}
     case integer_tag:
       {register integer_type *nx = (integer_type *) allocp;