1 files changed, 5 insertions, 1 deletions
diff --git a/compat/waitpid.c b/compat/waitpid.c
index cf025b0..cd04d8b 100644
--- a/compat/waitpid.c
+++ b/compat/waitpid.c
@@ -156,7 +156,11 @@ waitpid(
 		goto waitAgain;
 	    }
 	}
-	waitPtr = (WaitInfo *) Tcl_Alloc(sizeof(WaitInfo));
+	waitPtr = (WaitInfo *) Tcl_AttemptAlloc(sizeof(WaitInfo));
+	if (!waitPtr) {
+	    errno = ENOMEM;
+	    return -1;
+	}
 	waitPtr->pid = result;
 	waitPtr->status = status;
 	waitPtr->nextPtr = deadList;