diff --git a/ChangeLog b/ChangeLog
index 12c72352cf..2f403efd49 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Wed Jun 17 23:46:08 2009  Tadayoshi Funaba  <tadf@dotrb.org>
+
+	* rational.c (nurat_coerce): accepts Complex when the imag is
+	  exact zero.
+
 Wed Jun 17 21:25:54 2009  Tadayoshi Funaba  <tadf@dotrb.org>
 
 	* bignum.c (rb_big_fdiv): checks whether the given second argument
diff --git a/rational.c b/rational.c
index de676dc473..a75235f65f 100644
--- a/rational.c
+++ b/rational.c
@@ -902,6 +902,10 @@ nurat_coerce(VALUE self, VALUE other)
 	return rb_assoc_new(other, f_to_f(self));
       case T_RATIONAL:
 	return rb_assoc_new(other, self);
+      case T_COMPLEX:
+	if (k_exact_p(RCOMPLEX(other)->imag) && f_zero_p(RCOMPLEX(other)->imag))
+	    return rb_assoc_new(f_rational_new_bang1
+				(CLASS_OF(self), RCOMPLEX(other)->real), self);
     }
 
     rb_raise(rb_eTypeError, "%s can't be coerced into %s",