diff --git a/ChangeLog b/ChangeLog
index 0ed38efee1..b31236d23d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Tue Jul  1 19:01:00 2008  NARUSE, Yui  <naruse@ruby-lang.org>
+
+	* enc/shift_jis.c (code_is_ctype): HALF WIDTH KATAKANA is
+	  a character.
+
 Tue Jul  1 17:56:34 2008  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
 	* missing/vsnprintf.c (BSD__uqtoa): constified.
diff --git a/enc/shift_jis.c b/enc/shift_jis.c
index 087e7f7299..f74afffa92 100644
--- a/enc/shift_jis.c
+++ b/enc/shift_jis.c
@@ -313,7 +313,7 @@ is_code_ctype(OnigCodePoint code, unsigned int ctype, OnigEncoding enc)
       return ONIGENC_IS_ASCII_CODE_CTYPE(code, ctype);
     else {
       if (CTYPE_IS_WORD_GRAPH_PRINT(ctype)) {
-	return (code_to_mbclen(code, enc) > 1 ? TRUE : FALSE);
+	return TRUE;
       }
     }
   }