Index: /trunk/ccl/level-1/l1-clos-boot.lisp
===================================================================
--- /trunk/ccl/level-1/l1-clos-boot.lisp	(revision 5777)
+++ /trunk/ccl/level-1/l1-clos-boot.lisp	(revision 5778)
@@ -1856,5 +1856,5 @@
               (find-class 'word-vector)
               (find-class 'unsigned-word-vector)
-              (find-class 'base-string)
+              (find-class 'base-string) ;old
               (find-class 'byte-vector)
               (find-class 'unsigned-byte-vector)
@@ -1874,5 +1874,5 @@
               *t-class*
               *t-class*
-              *t-class*
+              (find-class 'base-string)
               (find-class 'long-vector)
               (find-class 'unsigned-long-vector)
@@ -2168,5 +2168,5 @@
                         (cond ((= class x8664::fulltag-immheader-0)
                                (%svref *immheader-0-classes* idx))
-                              ((= class x8664::fulltag-immheader-0)
+                              ((= class x8664::fulltag-immheader-1)
                                (%svref *immheader-1-classes* idx))
                               ((= class x8664::fulltag-immheader-2)