diff --git a/ChangeLog b/ChangeLog
index db356deb1c..27c1f9878b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Sat Sep  6 06:23:27 2008  Tanaka Akira  <akr@fsij.org>
+
+	* tool/transcode-tblgen.rb (StrSet.parse): accept upper case
+	  hexadecimal digits.
+
 Sat Sep  6 05:37:08 2008  Tanaka Akira  <akr@fsij.org>
 
 	* transcode.c (output_hex_charref): upcase hexadecimal digits.
diff --git a/tool/transcode-tblgen.rb b/tool/transcode-tblgen.rb
index 3032b115ac..2ed9f13618 100644
--- a/tool/transcode-tblgen.rb
+++ b/tool/transcode-tblgen.rb
@@ -36,11 +36,11 @@ class StrSet
           seq = $'
           set_result = []
           set.scan(/[^,]+/) {|range|
-            if /\A([0-9a-f][0-9a-f])-([0-9a-f][0-9a-f])\z/ =~ range
+            if /\A([0-9a-f][0-9a-f])-([0-9a-f][0-9a-f])\z/i =~ range
               b = $1.to_i(16)
               e = $2.to_i(16)
               set_result << (b..e)
-            elsif /\A([0-9a-f][0-9a-f])\z/ =~ range
+            elsif /\A([0-9a-f][0-9a-f])\z/i =~ range
               byte = $1.to_i(16)
               set_result << (byte..byte)
             else