Index: /trunk/ccl/level-0/l0-hash.lisp
===================================================================
--- /trunk/ccl/level-0/l0-hash.lisp	(revision 6485)
+++ /trunk/ccl/level-0/l0-hash.lisp	(revision 6486)
@@ -283,5 +283,5 @@
         (if (symbolp key)
           (let* ((name (if key (%svref (symptr->symvector key) target::symbol.pname-cell) "NIL")))
-            (values (mixup-hash-code (string-hash name 0 (length name))) nil))
+            (values (mixup-hash-code (%pname-hash name 0 (length name))) nil))
           (let ((hash (mixup-hash-code (strip-tag-to-fixnum key))))
             (if (immediate-p-macro key)
@@ -1055,5 +1055,5 @@
                                         (symptr->symvector key)
                                         target::symbol.pname-cell) "NIL")))
-                    (mixup-hash-code (string-hash name 0 (length name))))
+                    (mixup-hash-code (%pname-hash name (length name))))
                   (mixup-hash-code (strip-tag-to-fixnum key)))))))
          (length (uvsize vector))
@@ -1104,5 +1104,5 @@
                                         (symptr->symvector key)
                                         target::symbol.pname-cell) "NIL")))
-                    (mixup-hash-code (string-hash name 0 (length name))))
+                    (mixup-hash-code (%pname-hash name (length name))))
                   (progn
                     (unless (immediate-p-macro key)