diff --git a/ChangeLog b/ChangeLog
index 19f950e31a..91e60431ff 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,4 +1,6 @@
-Tue Oct  7 10:02:30 2003  Tanaka Akira  <akr@m17n.org>
+Tue Oct  7 12:23:47 2003  Tanaka Akira  <akr@m17n.org>
+
+	* ext/fcntl/fcntl.c (Init_fcntl): define Fcntl::ACCMODE.
 
 	* ext/socket/extconf.rb: useless assignment removed.
 
diff --git a/ext/fcntl/fcntl.c b/ext/fcntl/fcntl.c
index de0b284b36..ca7b12bde1 100644
--- a/ext/fcntl/fcntl.c
+++ b/ext/fcntl/fcntl.c
@@ -104,4 +104,9 @@ Init_fcntl()
 #ifdef O_WRONLY
     rb_define_const(mFcntl, "O_WRONLY", INT2NUM(O_WRONLY));
 #endif
+#ifdef O_ACCMODE
+    rb_define_const(mFcntl, "ACCMODE", INT2FIX(O_ACCMODE));
+#else
+    rb_define_const(mFcntl, "ACCMODE", INT2FIX(O_RDONLY | O_WRONLY | O_RDWR));
+#endif
 }