1 files changed, 8 insertions, 0 deletions
diff --git a/rts/sm/GCAux.c b/rts/sm/GCAux.c
index 3df36d7449..29c1e9d604 100644
--- a/rts/sm/GCAux.c
+++ b/rts/sm/GCAux.c
@@ -93,6 +93,14 @@ isAlive(StgClosure *p)
       p = ((StgInd *)q)->indirectee;
       continue;
 
+    case BLACKHOLE:
+        p = ((StgInd*)q)->indirectee;
+        if (GET_CLOSURE_TAG(p) != 0) {
+            continue;
+        } else {
+            return NULL;
+        }
+
     default:
       // dead. 
       return NULL;