diff --git a/CHANGES b/CHANGES
index 3468cbb..70ea650 100644
--- a/CHANGES
+++ b/CHANGES
@@ -2,6 +2,7 @@
 =====
 * Raise a proper error when non-blocking connection
   fails.
+* Fix poll segfault.
 
 1.0.2 (2024-01-08)
 ======
diff --git a/src/cry_stubs.c b/src/cry_stubs.c
index 5246fa1..54f392f 100644
--- a/src/cry_stubs.c
+++ b/src/cry_stubs.c
@@ -109,7 +109,7 @@ CAMLprim value caml_cry_poll(value _read, value _write, value _err,
       nwrite++;
     }
     if (fds[n].revents & POLLERR) {
-      Store_field(_pread, nerr, Val_fd(fds[n].fd));
+      Store_field(_perr, nerr, Val_fd(fds[n].fd));
       nerr++;
     }
   }