diff --git a/rts/LdvProfile.c b/rts/LdvProfile.c
index 2cdeb36ce2..3935ee79ec 100644
--- a/rts/LdvProfile.c
+++ b/rts/LdvProfile.c
@@ -42,6 +42,7 @@ bool isInherentlyUsed( StgHalfWord closure_type )
     case PRIM:
     case MUT_PRIM:
     case TREC_CHUNK:
+    case THUNK_SELECTOR:
         return true;
 
     default: