--- gforth/unix/socket.fs	2011/12/12 22:42:36	1.47
+++ gforth/unix/socket.fs	2011/12/12 23:02:33	1.48
@@ -170,19 +170,22 @@ $004 Constant POLLOUT
     PF_INET SOCK_DGRAM 0 socket
     dup 0<= abort" no free socket"
 [IFDEF] darwin
-    dup IPPROTO_IP IP_DONTFRAG sockopt-on 1 over l! 4
+\    dup IPPROTO_IP IP_DONTFRAG sockopt-on 1 over l! 4
+\    setsockopt drop
 [ELSE]
     dup IPPROTO_IP IP_MTU_DISCOVER sockopt-on IP_PMTUDISC_DO over l! 4
-[THEN]
-    setsockopt drop ;
+    setsockopt drop
+[THEN] ;
 
 : new-udp-socket6 ( -- socket )
     PF_INET6 SOCK_DGRAM 0 socket
     dup 0<= abort" no free socket"
 [IFDEF] darwin
-    dup IPPROTO_IP IP_DONTFRAG sockopt-on 1 over l! 4
+\    dup IPPROTO_IP IP_DONTFRAG sockopt-on 1 over l! 4
+\    setsockopt drop
 [ELSE]
     dup IPPROTO_IPV6 IPV6_MTU_DISCOVER sockopt-on IP_PMTUDISC_DO over l! 4
+    setsockopt drop
 [THEN]
     setsockopt drop
     dup IPPROTO_IPV6 IPV6_V6ONLY sockopt-on dup on 4 setsockopt drop ;