diff --git a/ChangeLog b/ChangeLog
index 6a0e9e4fc7..3e45c34bb9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,7 +1,8 @@
-Thu Jul 28 12:21:15 2011  Masatoshi SEKI  <m_seki@mva.biglobe.ne.jp>
+Thu Jul 28 12:32:42 2011  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
-	* test/rinda/test_rinda.rb: decrease the code that depends on timing.
-	  [Bug #372] [Bug #4160]
+	* ext/dl/cptr.c (rb_dlptr_s_to_ptr): fix wrapping condition.
+
+	* ext/dl/cptr.c (rb_dlptr_s_to_ptr): fix wrapping condition.
 
 Thu Jul 28 04:53:31 2011  Eric Hodel  <drbrain@segment7.net>
 
diff --git a/ext/dl/cptr.c b/ext/dl/cptr.c
index c2fb60540e..02535f3949 100644
--- a/ext/dl/cptr.c
+++ b/ext/dl/cptr.c
@@ -622,7 +622,7 @@ rb_dlptr_s_to_ptr(VALUE self, VALUE val)
     }
     else{
 	VALUE num = rb_Integer(val);
-	if (num != val) wrap = 0;
+	if (num == val) wrap = 0;
 	ptr = rb_dlptr_new(NUM2PTR(num), 0, NULL);
     }
     OBJ_INFECT(ptr, val);