Index: /branches/ide-1.0/ccl/hemlock/src/hemlock-ext.lisp
===================================================================
--- /branches/ide-1.0/ccl/hemlock/src/hemlock-ext.lisp	(revision 6582)
+++ /branches/ide-1.0/ccl/hemlock/src/hemlock-ext.lisp	(revision 6583)
@@ -635,5 +635,5 @@
       ((= index end) nil)
     (declare (fixnum index))
-    (if (/= (logand (aref table (char-code (elt string index))) mask) 0)
+    (if (/= (logand (aref table (min 255 (char-code (schar string index)))) mask) 0)
 	(return index))))
 
@@ -647,5 +647,5 @@
       ((< index start) nil)
     (declare (fixnum index))
-    (if (/= (logand (aref table (char-code (elt string index))) mask) 0)
+    (if (/= (logand (aref table (min 255 (char-code (aref string index)))) mask) 0)
 	(return index))))