diff --git a/ChangeLog b/ChangeLog
index 62f3952718..d4a1068902 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Fri Jan 18 10:12:00 2002  Usaku Nakamura <usa@ruby-lang.org>
+
+	* ext/socket/socket.c (tcp_svr_s_open): fix typo.
+
 Thu Jan 17 16:21:42 2002  Yukihiro Matsumoto  <matz@ruby-lang.org>
 
 	* eval.c (block_pass): allow "retry" from within argument passed
diff --git a/ext/socket/socket.c b/ext/socket/socket.c
index 5e676e5b6d..dcdefd173a 100644
--- a/ext/socket/socket.c
+++ b/ext/socket/socket.c
@@ -1091,7 +1091,7 @@ tcp_svr_s_open(argc, argv, klass)
     VALUE *argv;
     VALUE klass;
 {
-    return tcp_svr_s_init(argc, argv, rb_obj_alloc(klass));
+    return tcp_svr_init(argc, argv, rb_obj_alloc(klass));
 }
 
 static VALUE