Index: /trunk/source/level-1/l1-aprims.lisp
===================================================================
--- /trunk/source/level-1/l1-aprims.lisp	(revision 8428)
+++ /trunk/source/level-1/l1-aprims.lisp	(revision 8429)
@@ -918,4 +918,12 @@
           c))))
 
+(defun %non-standard-char-code-upcase (code)
+  (declare (type (mod #x110000) code))
+  (if (>= code #x80)
+    (let* ((upper (%non-standard-upper-case-equivalent (code-char code))))
+      (if upper
+        (char-code upper)
+        code))
+    code))