diff --git a/racket/src/racket/src/sort.c b/racket/src/racket/src/sort.c index 25d05b5d62..f31ed3c9eb 100644 --- a/racket/src/racket/src/sort.c +++ b/racket/src/racket/src/sort.c @@ -57,7 +57,7 @@ static int compare_sym_likes(Scheme_Object *a, Scheme_Object *b) for (i = 0; i < l; i++) { if (SCHEME_SYM_VAL(a)[i] != SCHEME_SYM_VAL(b)[i]) - return (SCHEME_SYM_VAL(a)[i] - SCHEME_SYM_VAL(b)[i]); + return (((unsigned char *)SCHEME_SYM_VAL(a))[i] - ((unsigned char *)SCHEME_SYM_VAL(b))[i]); } return SCHEME_SYM_LEN(a) - SCHEME_SYM_LEN(b);