small bugfix in traverseBlackHoleQueue()

1 files changed, 5 insertions, 1 deletions

diff --git a/rts/sm/MarkWeak.c b/rts/sm/MarkWeak.c
index 96b4f674f3..3d80357cc4 100644
--- a/rts/sm/MarkWeak.c
+++ b/rts/sm/MarkWeak.c
@@ -341,7 +341,11 @@ traverseBlackholeQueue (void)
                 }
             }
             evacuate((StgClosure **)&t);
-            if (prev) prev->_link = t;
+            if (prev) {
+                prev->_link = t;
+            } else {
+                blackhole_queue = t;
+            }
                  // no write barrier when on the blackhole queue,
                  // because we traverse the whole queue on every GC.
             flag = rtsTrue;