2 files changed, 8 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index 053f0a4194..59bfaddc1d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Thu Oct 16 16:54:57 2003  Yukihiro Matsumoto  <matz@ruby-lang.org>
+
+	* string.c (rb_str_upto): ("a"..."a").to_a should return [].
+	  [ruby-core:01634]
+
 Thu Oct 16 16:40:51 2003  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
 
 	* ext/tk/lib/tk.rb: 
diff --git a/string.c b/string.c
index ddf530c998..29c3cea63b 100644
--- a/string.c
+++ b/string.c
@@ -1174,9 +1174,11 @@ rb_str_upto(beg, end, excl)
 {
     VALUE current, after_end;
     ID succ = rb_intern("succ");
+    int n;
 
     StringValue(end);
-    if (rb_str_cmp(beg, end) > 0) return beg;
+    n = rb_str_cmp(beg, end);
+    if (n > 0 || (excl && n == 0)) return beg;
     after_end = rb_funcall(end, succ, 0, 0);
     current = beg;
     while (!rb_str_equal(current, after_end)) {