--- data.c~	Mon Apr  3 12:47:20 2000
+++ data.c	Mon Jun  5 16:31:47 2000
@@ -770,7 +770,7 @@
     {
       CHECK_CHAR_COERCE_INT (newval);
       if (idx >= XSTRING_CHAR_LENGTH (array)) goto range_error;
-      set_string_char (XSTRING (array), idx, (unsigned char) XCHAR (newval));
+      set_string_char (XSTRING (array), idx, (Emchar) XCHAR (newval));
       bump_string_modiff (array);
     }
   else