diff --git a/basis/io/sockets/sockets.factor b/basis/io/sockets/sockets.factor index 51e5979c2f..0a7287fc53 100644 --- a/basis/io/sockets/sockets.factor +++ b/basis/io/sockets/sockets.factor @@ -410,7 +410,7 @@ C: inet M: string resolve-host f prepare-addrinfo f void* [ - getaddrinfo 0 or [ + getaddrinfo [ dup addrinfo-error-string addrinfo-error ] unless-zero ] keep void* deref addrinfo memory>struct