1 files changed, 1 insertions, 1 deletions

diff --git a/src/casefiddle.c b/src/casefiddle.c
index 78c3bb2e8c7..67862365a30 100644
--- a/src/casefiddle.c
+++ b/src/casefiddle.c
@@ -90,7 +90,7 @@ casify_object (flag, obj)
                   : ! SINGLE_BYTE_CHAR_P (c))
                 break;
 
-              SREF (obj, i) = c;
+              SSET (obj, i, c);
               if ((int) flag >= (int) CASE_CAPITALIZE)
                 inword = SYNTAX (c) == Sword;
               i++;