diff --git a/guix/store.scm b/guix/store.scm
index b584caa073..9b4c65532e 100644
--- a/guix/store.scm
+++ b/guix/store.scm
@@ -399,7 +399,9 @@ (define addresses
                    (if (number? port) (number->string port) port)
                    (if (number? port)
                        (logior AI_ADDRCONFIG AI_NUMERICSERV)
-                       AI_ADDRCONFIG)))
+                       AI_ADDRCONFIG)
+                   0                              ;any address family
+                   SOCK_STREAM))                  ;TCP only
 
     (let loop ((addresses addresses))
       (match addresses