correctly share string bodies

1 files changed, 1 insertions, 1 deletions

diff --git a/src/gc.c b/src/gc.c
index 046d8ff1f..6ebde5cb0 100644
--- a/src/gc.c
+++ b/src/gc.c
@@ -362,7 +362,7 @@ gc_mark_children(mrb_state *mrb, struct RBasic *obj)
     {
       struct RString *s = (struct RString*)obj;
 
-      while (s->flags & MRB_STR_SHARED) {
+      if (s->flags & MRB_STR_SHARED) {
 	mrb_gc_mark(mrb, (struct RBasic*)s->aux.shared);
       }
     }