diff --git a/ChangeLog b/ChangeLog
index f75417bd3..b3e2edca7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2008-10-14  Richard Frith-Macdonald <rfm@gnu.org>
+
+        * Source/GSSocketStream.m: Fix for #24564
+
 2008-10-12  Larry Campbelln
 
         * Source/NSDate.m: Add keyed archiving support.
diff --git a/Source/GSSocketStream.m b/Source/GSSocketStream.m
index 31b9aed1e..010d17f29 100644
--- a/Source/GSSocketStream.m
+++ b/Source/GSSocketStream.m
@@ -40,6 +40,18 @@
 #import "GSStream.h"
 #import "GSSocketStream.h"
 
+#ifndef SHUT_RD
+# ifdef  SD_RECEIVE
+#   define SHUT_RD      SD_RECEIVE
+#   define SHUT_WR      SD_SEND
+#   define SHUT_RDWR    SD_BOTH
+# else
+#   define SHUT_RD      0
+#   define SHUT_WR      1
+#   define SHUT_RDWR    2
+# endif
+#endif
+
 unsigned
 GSPrivateSockaddrLength(struct sockaddr *addr)
 {