diff --git a/ChangeLog b/ChangeLog
index 32f7f83085..f79a0f19f6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Wed Nov  4 08:21:00 2009  Nobuyoshi Nakada  <nobu@ruby-lang.org>
+
+	* dir.c (GetDIR): fixed a variable name.
+
 Wed Nov  4 08:19:31 2009  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
 	* cont.c (rb_fiber_start): fixed unconditional test.
diff --git a/dir.c b/dir.c
index a71f5825fd..228d4b2453 100644
--- a/dir.c
+++ b/dir.c
@@ -456,7 +456,7 @@ dir_check(VALUE dir)
 }
 
 #define GetDIR(obj, dirp) do {\
-    dir_check(dir);\
+    dir_check(obj); \
     TypedData_Get_Struct(obj, struct dir_data, &dir_data_type, dirp);	\
     if (dirp->dir == NULL) dir_closed();\
 } while (0)