--- japan-util.el.orig	Thu Jul 29 17:56:45 1999
+++ japan-util.el	Tue Aug 24 20:06:11 1999
@@ -94,7 +94,7 @@
 			 (get-char-code-property hira 'kana-composition)))))
 	  (put-char-code-property hiragana 'katakana katakana)
 	  (put-char-code-property hiragana 'jisx0201 jisx0201)))
-    (when (integerp katakana)
+    (when (characterp katakana)
       (put-char-code-property katakana 'hiragana hiragana)
       (put-char-code-property katakana 'jisx0201 jisx0201))
     (if jisx0201