diff -uprN uim-1.5.0.org/scm/anthy-utf8.scm /usr/local/share/uim/anthy-utf8.scm
--- uim-1.5.0.org/scm/anthy-utf8.scm	2008-02-13 23:43:42.000000000 +0900
+++ /usr/local/share/uim/anthy-utf8.scm	2008-05-22 08:29:43.000000000 +0900
@@ -713,7 +713,7 @@
 				    (charcode->string key))
 				(if (symbol? key)
 				    (symbol->string key)
-				    (charcode->string (ichar-downcase key)))))
+				    (charcode->string key))))
 		   (res (rk-push-key! rkc key-str)))
 	      (if res
 		  (begin
@@ -1206,7 +1206,7 @@
 			       (charcode->string key))
 			   (if (symbol? key)
 			       (symbol->string key)
-			       (charcode->string (ichar-downcase key)))))))
+			       (charcode->string key))))))
 	    (let ((pend (rk-pending rkc))
 		  (residual-kana (rk-push-key-last! rkc)))
 	      (if residual-kana
@@ -1240,7 +1240,7 @@
 				    (charcode->string key))
 				(if (symbol? key)
 				    (symbol->string key)
-				    (charcode->string (ichar-downcase key)))))
+				    (charcode->string key))))
 		   (pend (rk-pending rkc))
 		   (res (rk-push-key! rkc key-str)))
 	      (if (and res
diff -uprN uim-1.5.0.org/scm/anthy.scm /usr/local/share/uim/anthy.scm
--- uim-1.5.0.org/scm/anthy.scm	2008-02-13 23:43:42.000000000 +0900
+++ /usr/local/share/uim/anthy.scm	2008-05-22 08:29:24.000000000 +0900
@@ -708,7 +708,7 @@
 				    (charcode->string key))
 				(if (symbol? key)
 				    (symbol->string key)
-				    (charcode->string (ichar-downcase key)))))
+				    (charcode->string key))))
 		   (res (rk-push-key! rkc key-str)))
 	      (if res
 		  (begin
@@ -1201,7 +1201,7 @@
 			       (charcode->string key))
 			   (if (symbol? key)
 			       (symbol->string key)
-			       (charcode->string (ichar-downcase key)))))))
+			       (charcode->string key))))))
 	    (let ((pend (rk-pending rkc))
 		  (residual-kana (rk-push-key-last! rkc)))
 	      (if residual-kana
@@ -1235,7 +1235,7 @@
 				    (charcode->string key))
 				(if (symbol? key)
 				    (symbol->string key)
-				    (charcode->string (ichar-downcase key)))))
+				    (charcode->string key))))
 		   (pend (rk-pending rkc))
 		   (res (rk-push-key! rkc key-str)))
 	      (if (and res