Index: /trunk/source/level-0/l0-hash.lisp
===================================================================
--- /trunk/source/level-0/l0-hash.lisp	(revision 16304)
+++ /trunk/source/level-0/l0-hash.lisp	(revision 16305)
@@ -340,8 +340,4 @@
       (incorporate (%pathname-type key))
       (mixup-hash-code hash))))
-    
-
-         
-    
 
 (defun update-hash-flags (hash vector addressp)
@@ -1756,9 +1752,4 @@
         ((hash-table-p key)
          (equalphash-hash-table key))
-        ((typep key 'simple-string)
-         (%string-hash-folding-case 0 key (length key)))
-        ((typep key 'string)
-         (multiple-value-bind (data offset) (array-data-and-offset key)
-           (%string-hash-folding-case offset data (length key))))
         ((pathnamep key)
          (%hash-pathname key))
@@ -1766,5 +1757,5 @@
              (structurep key))  ; was (gvectorp key)
          (%%equalphash-structure 11 key))
-        ((or (arrayp key)) ;(uvectorp key)) ;??
+        ((arrayp key)
          (%%equalphash-array 11 key))
         ((consp key)