X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FCapability.c;h=4264f0ff573afa9f043bb2c2907be814d88ec1e2;hb=c51229b2bfd3b1a61d3966db894210ef848f0a6d;hp=ddaba699a36615da472423187a9134e268a71b15;hpb=a2a67cd520b9841114d69a87a423dabcb3b4368e;p=ghc-hetmet.git

diff --git a/rts/Capability.c b/rts/Capability.c
index ddaba69..4264f0f 100644
--- a/rts/Capability.c
+++ b/rts/Capability.c
@@ -500,7 +500,7 @@ waitForReturnCapability (Capability **pCap, Task *task)
     if (cap == NULL) {
 	// Try last_free_capability first
 	cap = last_free_capability;
-	if (!cap->running_task) {
+	if (cap->running_task) {
 	    nat i;
 	    // otherwise, search for a free capability
             cap = NULL;