Index: /branches/working-0711/ccl/level-1/l1-sockets.lisp
===================================================================
--- /branches/working-0711/ccl/level-1/l1-sockets.lisp	(revision 7731)
+++ /branches/working-0711/ccl/level-1/l1-sockets.lisp	(revision 7732)
@@ -1458,5 +1458,6 @@
                 ((%null-ptr-p q) (nreverse res))
              (let* ((addr (pref q :ifaddrs.ifa_addr)))
-               (when (eql (pref addr :sockaddr.sa_family) #$AF_INET)
+               (when (and (not (%null-ptr-p addr))
+                          (eql (pref addr :sockaddr.sa_family) #$AF_INET))
                  (push (make-ip-interface
 				   :name (%get-cstring (pref q :ifaddrs.ifa_name))