diff --git a/ChangeLog b/ChangeLog
index 2a4e4dfc7019c8..44e1c423b2018a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Tue Aug 12 14:15:13 2008  Nobuyoshi Nakada  <nobu@ruby-lang.org>
+
+	* ext/dl/cptr.c (rb_dlptr_s_to_ptr): fixed shadowing variable.
+
 Tue Aug 12 10:18:01 2008  Yukihiro Matsumoto  <matz@ruby-lang.org>
 
 	* test/win32ole/test_err_in_callback.rb: do not require 'mkmf'
diff --git a/ext/dl/cptr.c b/ext/dl/cptr.c
index b5f1e239e43c4c..7487b0cf55531e 100644
--- a/ext/dl/cptr.c
+++ b/ext/dl/cptr.c
@@ -426,8 +426,8 @@ rb_dlptr_s_to_ptr(VALUE self, VALUE val)
 	ptr = rb_dlptr_new(fp, 0, NULL);
     }
     else if (rb_obj_is_kind_of(val, rb_cString) == Qtrue){
-        char *ptr = StringValuePtr(val);
-        ptr = rb_dlptr_new(ptr, RSTRING_LEN(val), NULL); 
+        char *str = StringValuePtr(val);
+        ptr = rb_dlptr_new(str, RSTRING_LEN(val), NULL); 
     }
     else if (rb_respond_to(val, id_to_ptr)){
 	VALUE vptr = rb_funcall(val, id_to_ptr, 0);