diff --git a/CHANGELOG.md b/CHANGELOG.md
index 01bfbf56..cb6f1ae5 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -11,6 +11,8 @@
 * Exporting recvBufNoWait.
 * Support for getHostName
   [#621](https://github.com/haskell/network/pull/621)
+* Fixing the misspelled WSAEACCES error description on Windows.
+  [#622](https://github.com/haskell/network/pull/622)
 
 ## Version 3.2.8.0
 
diff --git a/cbits/winSockErr.c b/cbits/winSockErr.c
index 43698f76..f67beb13 100644
--- a/cbits/winSockErr.c
+++ b/cbits/winSockErr.c
@@ -14,7 +14,7 @@ getWSErrorDescr(int err)
   switch (err) {
   case WSAEINTR:  return "Interrupted function call (WSAEINTR)";
   case WSAEBADF:  return "bad socket descriptor (WSAEBADF)";
-  case WSAEACCES: return "Permission denied (WSAEACCESS)";
+  case WSAEACCES: return "Permission denied (WSAEACCES)";
   case WSAEFAULT: return "Bad address (WSAEFAULT)";
   case WSAEINVAL: return "Invalid argument (WSAEINVAL)";
   case WSAEMFILE: return "Too many open files (WSAEMFILE)";