Fix bugs with inappropriate mixing of Lisp_Object with int.

1 files changed, 2 insertions, 2 deletions

diff --git a/src/casefiddle.c b/src/casefiddle.c
index 90d09b46ac4..dfa2981eb04 100644
--- a/src/casefiddle.c
+++ b/src/casefiddle.c
@@ -47,12 +47,12 @@ casify_object (flag, obj)
     {
       if (INTEGERP (obj))
         {
-          c = DOWNCASE (obj);
+          c = DOWNCASE (XFASTINT (obj));
           if (inword)
             XSETFASTINT (obj, c);
           else if (c == XFASTINT (obj))
             {
-              c = UPCASE1 (obj);
+              c = UPCASE1 (XFASTINT (obj));
               XSETFASTINT (obj, c);
             }
           return obj;