Index: /trunk/source/lib/chars.lisp
===================================================================
--- /trunk/source/lib/chars.lisp	(revision 8429)
+++ /trunk/source/lib/chars.lisp	(revision 8430)
@@ -459,8 +459,12 @@
           (if (and (>= code1 (char-code #\a))
                    (<= code1 (char-code #\z)))
-            (setq code1 (- code1 (- (char-code #\a) (char-code #\A)))))
+            (setq code1 (- code1 (- (char-code #\a) (char-code #\A))))
+            (if (> code1 #x80)
+              (setq code1 (%non-standard-char-code-upcase code1))))
           (if (and (>= code2 (char-code #\a))
                    (<= code2 (char-code #\z)))
-            (setq code2 (- code2 (- (char-code #\a) (char-code #\A)))))
+            (setq code2 (- code2 (- (char-code #\a) (char-code #\A))))
+            (if (> code2 #x80)
+              (setq code2 (%non-standard-char-code-upcase code2))))
           (unless (= code1 code2)            
             (setq val (if (%i< code1 code2) -1 1))