diff --git a/ChangeLog b/ChangeLog
index 11f7f58bb2..4184f916d6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Tue Feb 10 21:14:43 2009  Tanaka Akira  <akr@fsij.org>
+
+	* ext/socket/socket.c (sockaddr_obj): fill pfamily.
+
 Tue Feb 10 21:09:23 2009  Tanaka Akira  <akr@fsij.org>
 
 	* ext/socket/option.c (sockopt_s_bool): new method.
diff --git a/ext/socket/socket.c b/ext/socket/socket.c
index 796cee4c4d..7e33de1411 100644
--- a/ext/socket/socket.c
+++ b/ext/socket/socket.c
@@ -1432,7 +1432,7 @@ sockaddr_obj(struct sockaddr *addr)
 	len = SA_LEN(addr);
 #endif
 
-    return addrinfo_new(addr, len, 0, 0, 0, Qnil, Qnil);
+    return addrinfo_new(addr, len, addr->sa_family, 0, 0, Qnil, Qnil);
 }
 #endif