--- gforth/unix/socket.fs	2008/10/06 20:59:17	1.26
+++ gforth/unix/socket.fs	2008/10/06 22:15:01	1.27
@@ -78,11 +78,11 @@ sockaddr-tmp sockaddr_in %size dup allot
     \G the resulting address is in network byte order
     c-string gethostbyname dup 0= abort" address not found"
 [ s" os-type" environment? drop s" cygwin" str= ] [IF]
-    &12 + @ 8 + @
+    &12 +
 [ELSE]
-    h_addr_list @ @ @
+    h_addr_list
 [THEN]
-    ntohl ;
+    @ @ @ ntohl ;
 
    2 Constant PF_INET
    1 Constant SOCK_STREAM