Index: /trunk/source/level-1/l1-sockets.lisp
===================================================================
--- /trunk/source/level-1/l1-sockets.lisp	(revision 8239)
+++ /trunk/source/level-1/l1-sockets.lisp	(revision 8240)
@@ -1511,4 +1511,5 @@
     (or (find-if #'(lambda (i)
 		     (and (eq #$AF_INET (ip-interface-address-family i))
+                          (ip-interface-addr i)
 			  (let* ((flags (ip-interface-flags i)))
 			    (and (not (logtest #$IFF_LOOPBACK flags))